8080 MACRO ASSEMBLER, VER 2.4 



ERRORS = PA6E 1 



0050 



9100 



0080 



0001 
0002 
0004 
0008 
0010 



0020 
0040 

0080 



0001 
0002 
0004 
0008 
0010 



; 5. F I L E 

;Y1015 -27 10 77 1100 HOURS 

; VERSION LEVEL CO&E * SY1015 MODUL 



W A Z 



;********************* 



HP - 21 WX 



VERSN EQU 120Q 



;P => VERSION 



; COH«0N EQUATES - CM34 - 6/10/76 - 1315 HRS, 
FTRAM ESU 110400Q ;FAST RAK LOWER LIMIT 

;*********•******************•********** 

; KBDCSW - KEYBOARD DATA COMM SWITCHES * 

^*1f**ie**** ****************************** 

FLDUP EQU 200Q ;HALF/FULL DUPLEX 
;************************************** 

; KBJRPR - KEYBOARD INTERFACE JUMPERS * 

j;**** ******** ************************** 



JUMPERS SENSED AS 0» WHEN INSERTED 



ALL JUMPERS ARE NORMALLY INSERTED 



CNDIS 


EQU 


001Q 


SLDIS 


EQU 


002Q 


LNWRP 


EQU 


004Q 


PGSTR 


EQU 


01 OQ 


LFPOS 


EQU 


20Q 


FTSNO 


EQU 


40Q 


HDSHK 


EQU 


100Q 


D2SND 


EQU 


200Q 





















; CONTROL C 

(0=DISAB 

;SPOW LATC 

CO=DISAB 

; COLUMN 80 

(0=ENABL 

;PA6E MODE 

(0=HNE- 

;LINE FEED 

(0 = POS 

AT S 

READ 

1 = PUT 

OF R 

;9600 BAUD 

(0=9600 
;BLOCK TRA 
(0 = FOL 
1 = SEN 



ODE DISABLE 

LED) 

H DISABLE 

LED) 

AUTO CR,LF 
ED) 

STRAP 
FIELD MODE) 

POSITION 
ITION LINE FEED 
TART OF NEXT I/O 

LINE FEED AT END 
ECORD) 

DATACOM SHIFT 
BAUD FOR ESC,E> 
NSFER HANDSHAKE 
LOW DC2SND SETTING 
D DC2 BEFORE DATA) 



to = SEND DC2 ON ENTER 

AND FUNCTION KEY IN 
BLOCK MODE 
1 = INHIBIT ALL DC2 
HANDSHAKE) 



;****************************************** 
; KBJMP2 - SECOND SET OF KEYBOARD JUMPERS * 

;****************************************** 

;AUTO TERMINATE ON "ENTER" 
;CLEAR TERRINATOR ON TRANSMI 
; INHIBIT TERMINAL SELF-TEST 
;INVERT SENSE OF EDIT WRAP 
;SEND ALL COOES TO PRINTER 



ATTRM 


EQU 


1Q 


CRTRM 


EQU 


2Q 


NTEST 


EQU 


4Q 


ETWRP 


EQU 


10Q 


PNTAL 


EQU 


2 0Q 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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0080 



0001 
0002 
0004 
0008 
0010 

0020 

0040 

0080 



0001 
0002 
0004 
0008 
0010 
0020 



0001 
0002 
0004 



0003 



0000 

0001 
0002 
0010 
0020 
0040 

0080 



0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 



DJMPO EQU 200B ;DATA COMM JUMPER 

^■k***ik* ************************* it ********* 

; KBJMP3 - THIRD SET OF KEYBOARD JUMPERS * 

;&ATA COR« JUMPERS 



DJMP1 
DJMP2 
DJMP3 
DJMP4 
NDCST 


EQU 
EQU 
EQU 
EQU 
EQU 


1Q 

2Q 

4Q 

10Q 

203 


SETCH 


EQU 


40Q 


CEKCC 


EQU 


100Q 


FCPTY 


EQU 


200Q 



; INHIBIT DATA COMM 

(0 = DISABLED) 
;TURN ON "CH" CONTROL 

(0 = OFF, 1 = ON) 
;MONITOR CC CONTROL 
ENABLED) 
PARITY ON/NO 
ENABLED) 



SELF-TEST 



LINE 



CI = 

; FORCE 
(1 = 



LINE 



IN CHECK 



; CMFLGS - COMMON FLAGS * 
• **************** ******** 



BKTRG 
ISWRP 
FCRST 
DFSKY 
RMSET 
RVMDE 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



1Q 

2Q 

4Q 

10Q 

20Q 

4 0Q 



;BLOCK TRANSFER TRIGGER 
;INSERT WITH WRAP AROUND 
;FORCE FULL TERMINAL RESET 
;DEFINE SOFT KEY MODE ENABLE 
;REMOTE MODE ENABLED 
^TERMINAL IN RECEIVE MODE 



f* **************** ****** 

; ERRFL6 - ERROR FLAGS * 
J*********************** 

DMERR EQU 1Q ;DATACOM (1 = ERROR) 
TSTOK EQU 2Q ;SELF-TEST (0 = ERROR) 
LRCHK EQU 4Q ;LOADER CHECKSUM CO = ERROR) 

J************************** 

; INTFLG - INTERRUPT FLAG * 
*************************** 



TRINT EQU 



TIMER INTERRUPT 



; *********************************** 
; PRCCTL - PROCESSOR CONTROL FLAGS * 
;*********************************** 



TIACK EQU OQ 



TMRON 
TMIEN 
OIOFF 
TIOFF 
POLL 



EQU 
EQU 
EQU 
EQU 
EQU 
;V*V*V*V* 
STROM EQU 



1Q 
2Q 
20Q 
40Q 
100Q 
SET TO 
200Q 



;ACKN0WLED6E TIMER INTERRUPT 

CBIT 1 OFF) 
;SET TIMER ON 
;RE-ENABLE TIMER INTERRUPT 
;DISABLE DATA COMM INTERRUPT 
;DISABLE TIMER INTERRUPTS 
;POLL CTU INTERRUPTS 
ZERO FOR ROM VERSION *V*V*V*V* 
;DISABLE (DAENABLE CO) ROM 



;********************************* 
; MDFL61 - TERMINAL MODE FLAGS 1 * 
;**«****************************** 



DPFNC 


EQU 


1Q 


ISCHR 


EQU 


2Q 


MMLOK 


EQU 


4Q 


FRMAT 


EQU 


10Q 


EDIT 


EQU 


20Q 


SLECT 


EQU 


40Q 


RCORD 


EQU 


100Q 


FORGN 


EQU 


200Q 



;DISPLAY FUNCTIONS ENABLED 
;INSERT CHARACTER ENABLED 
;MEMORY LOCK ENABLED 
;FORMAT MODE ENABLED 
;EDIT MODE ENABLED 
;SELECT MODE ENABLED 
; RECORD MODE ENABLED 
;F0REI6N MODE ENABLED 



;********************************* 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
FILE 
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FILE 
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0001 
0002 
0004 
0008 
0020 



OOOA 
0008 



9165 
9168 

FFFF 
OOFF 
FFOO 

FFFE 
FFFD 
FFFC 
FFFB 
FFFA 
FFF9 
FFF8 
FFF7 
FFF6 
FFF5 
FFF4 
FFF3 
FFF1 
FFEF 
FFED 
FFEB 
FFE9 
FFE7 
FFE5 
FFE3 
FFE1 
FFEO 
FFDE 
FFDD 
FFDC 
FFDB 
FFDA 
FFD9 
FF&8 
FF07 
FFD5 
FFD4 
FFD2 
FFD1 



FFDO 



; MDFL62 - TERMINAL RODE FLAGS 2 * 

j; ************************* ******** 

CPSLK EQU 1Q ;CAPS LOCK ENABLED 

BKMDE EQU 2Q ;BLOCIC «ODE ENABLED 

ATOLF EQU 4Q ;AUTO LF ENABLED 

RMOTE EQU 10Q ; REMOTE ENABLED 

WBSR EQU 40Q ;WRITE-BACKSPACE-READ HODE 

;********************************************** 

; RADIX - BASE OF INPUT PARAMETER FOR ESC SE6 * 

;********************************************** 

DCRDX EQU 10 ;DECIMAL NUMBERS 
OTRDX EQU 8 ;OCTAL NUMBERS 



******************* 

COMMON VARIABLES * 
******************* 

ITVEC EQU FTRAM+145Q ;CENTRAL INTERRUPT VECTOR 
SNVEC EQU ITVEC+3 ;F0REI6N TERMINAL DISPLY SCA 



CMMON 
CBASE 
CSTOR 

DSPST 
TMTYP 
KDCSW 
KJMPR 
K JMP2 
KJMP3 
CFLGS 
ERFL6 
ITFLG 
PCCTL 
MFLG1 
MFL62 
MGPT1 
M6PT2 
M6PT3 
M6PT4 
MGPT5 
H6PT6 
M6PT7 
MGPT8 
CIVEC 
CIJHP 
IDATA 
ICSGN 
IPS6N 
PARMI 
PARM2 
PARM3 
PARM4 
PARM5 
PARM6 
RADIX 
RNGTA 
ECFLG 



EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



177777Q ;UPPER LIMIT OF COMMON AREA 
CHMON/256 ;MSB OF COMMON ADDRESSES 
CBASE*256 ;«SB ADJUSTMENT FACTOR 



CMMON-1 
DSPST-1 
TMTYP-1 
KDCSW-1 
KJMPR-1 
KJMP2-1 
KJMP3-1 
CFL6S-1 
ERFL6-1 
ITFLG-1 
PCCTL-1 
MFL61-1 
MFL62-2 
M6PT1-2 
M6PT2-2 
K&PT3-2 
M6PT4-2 
MGPT5-2 
M6PT6-2 
MGPT7-2 
M6PT8-2 
CIVEC-1 
CIJMP-2 
IDATA-1 
ICS6N-1 
IPS6N-1 
P ARM 1-1 
PARM2-1 
PARM3-1 
PARM4-1 
PARM5-2 
PARM6-1 
RADlX-2 
RNGTA-1 



;OISPLAY REFRESH START PTR 
;TERMINAL TYPE NUMBER 
;KEYBOARD DATACOM SWITCHES 
;KEYBOARD STRAPS 

;SET 2 

;SET 3 
;COMMON FLAGS 
;ERROR FLAGS 
; INTERRUPT FLAG 
; PROCESSOR CONTROL FLAGS 
;TERMINAL MODE FLAGS 1 

;AND 2 
;IIESSA6E POINTERS 



RTTMR EQU ECFL6-1 



CTU INTERRUPT VECTOR 

JUMP CODE FOR VECTOR 

ESQ SEQ FARM ACCUMULATOR 

SIGN FOR PARAMETER 

PARAMETER SIGN 

ESCAPE SEQUENCE PARAMETERS 

i • 
i ■ 
# • 



;RADIX OF PARAMETERS 

;CHAR FUNCTION TABLE ADDRESS 

;ESCAPE SEQUENCE FLAG 
= 0, NOT IN ESCAPE SEQ 
# 0^ ESC SEQ IN PROGRESS 

;SOFT RESET TIMER 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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7000 
7002 
7005 
7008 
70 OB 
70 OE 
7011 
7014 
7017 
701A 
7010 
7020 
7023 
7026 



7029 
702A 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
000 A 
00 OB 
OOOC 
GOOD 
OOOE 
OOOF 



7800 
7802 
7803 
78 04 
7805 
78 06 



# * * 


* * * 


* * * * 


* 


************** 


; END 


OF COMMON EQUATES * 


; * * 


* * * 


* * * * 


* 


************** 


f* ******** -kit ************** ******** 


; KEYBOARD 


ENTRY VECTOR POINTERS * 


********************************** 


ZBBAS 


EttU 


70000Q 




;KEYBOARB START A&DRESS 


ZNIKB 


EQU 


ZBBAS+2 




; INITIALIZE KEYBOARD 


ZETKY 


EQU 


ZNIKB+3 




;6ET KEYBOARD KEY 


ZBCTL 


EQU 


ZETKY+3 




;PERFORH KEYBOARD CONTROL 


ZBMON 


EQU 


ZBCTL+3 




;HONITOR KEYBOARD 


ZTWDI 


EQU 


ZBMON+3 




;SET MODE 1 FLAGS 


ZLWD1 


EQU 


ZTMDH-3 




;CLEAR MODE 1 FLAGS 


ZBELL 


EQU 


ZLMD1*3 




; SOUND THE BELL 


ZTXWT 


EQU 


ZBELL+3 




;TURN ON TRANSMIT LED 


ZLXKT 


EQU 


ZTXMT+3 




;TURN OFF TRANSMIT LED 


ZTJPR 


EQU 


ZLXMT+3 




;SET JUMPERS ESC SEQ ROUTINE 


ZTLKY 


EQU 


ZTjPR-t-3 




;SET LATCHING KEYS ROUTINE 


ZLPCK 


EQU 


ZTLKY+3 




; ALPHA KEY ENTRY CHECK 


ZUMCK 


EQU 


ZLPCK+3 




;NUMERIC KEY ENTRY CHECK 


; KEYBOARD 


CONSTANTS 




FSALT 


EQU 


ZUMCK+3 




;INITIAL ALTERNATE CHAR SET 


ATOUT 


EQU 


FSALT+1 




;INITIAL ALTERNATE CHAR OUT 


; KEYBOARD 


CONTROL 


CALLS 


LCKKB 


EQU 


1 




;LOCK KEYBOARD 


UtKKB 


EQU 


2 




;UNLOCK KEYBOARD 


RTKEY 


EQU 


3 




;REPEAT LAST KEY HIT 


S6LMD 


EQU 


4 




;SET PERMANENT BLOCK MODE 


SRTST 


EQU 


5 




; START SELF-TEST 


EDTST 


EQU 


6 




;END SELF-TEST 


RETKB 


EQU 


7 




;RESET KEYBOARD 


CIOKY 


EQU 


8 




;CHECK FOR I/O CONTROL KEY 


SPRPT 


EQU 


9 




;STOP KEY REPEAT 


CBRKY 


EQU 


10 




;CHECK FOR BREAK KEY DOWN 


SCHAR 


EQU 


11 




.-SWITCH CHARACTER SET 


STFRN 


EQU 


12 




;UPBATE FOREIGN MODE 


SCHST 


EQU 


13 




;SET FOREIGN OUTPUT MODE 


FNMD1 


EQU 


14 




;SET FOREIGN MODE 1 


FNND2 


EQU 


15 




;SET FOREIGN MODE 2 



f ************************************************* 



DATACOM CONSTANTS 



************************************************* 

;DATACOM START ADDRESS 
;BLOCK TRANSFER TRIGGER 
;RECORD SEPARATOR CHARACTER 
;BLOCK TERMINATOR CHARACTER 
;DATA COMM JUMPER MASK 
;DATA COMM JUMPER MASK #2 
;************************************************* 

DATACOM ENTRY VECTOR POINTERS 



ZCBAS 


EQU 


74000Q 


TIGGR 


EQU 


ZCBAS+2 


RCSEP 


EQU 


TI66R+1 


BKTRM 


EQU 


RCSEP+1 


DJMSK 


EQU 


BKTRM+1 


DJMS2 


EQU 


DJMSK+1 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
2D 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
20 
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7808 
780B 
78 OE 
7811 
7814 
7817 
781A 
781D 
78 20 
7823 
7826 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
00 08 
OOOC 
00 OD 



0000 
OOOA 
OOOC 
OOOD 
OOOE 

oqof 

0012 
0013 
0018 
0020 
0020 
0024 
0026 
0027 
0029 
00 2B 
002 C 
002D 
002E 
002F 
0030 
0032 
0033 
0034 
0035 



ZNIDC 
ZN2DC 
ZCMON 
ZCCTL 
ZCTST 
ZETtJC 
ZUTDC 
ZGBIN 
ZTBIN 
ZDBIN 
ZCINT 



****** 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

****** 



********** 
2CBAS-I-10Q 
ZNI0C+3 
ZN2DC+3 
ZCHON+3 
ZCCTL+3 
ZCTST+3 
ZETDC+3 
ZUTDC -i-S 
Z6BIN+3 
ZTBIN-»^3 
ZDBIN+3 

********** 



ERRORS = PAGE 5 



***************************** 
; INITIALIZE DATACOM 

;INITIALIZATION CONTINUATOR 

;«ONITORING ROUTINE 

;RISC CONTROL FUNCTIONS 

;SELF-TEST 

;GET DC CHARACTER 

;PUT DC CHARACTER 

;6ET BINARY DC CHARACTER 

;START BINARY OUTPUT 

;END BINARY OUTPUT 

;DATACOM INTERRUPTS 
***************************** 



OATACOM CONTROL CALL CODES 



******* 

CRTR6 

STTR6 

RETDC 

STREM 

STLCL 

PTBRK 

DSCNT 

EDBLK 

STKON 

STNRM 

FTBIN 

SDATN 

SDFCT 

POKPT 



*********** 

EQU 

EQU 1 

EQU 2 

EQU 3 

EQU 4 

EQU 5 

EQU 6 

EQU 7 

EQU 8 

EQU 9 

EQU 10 

EQU 11 

EQU 12 

EQU 1 3 



******************************** 
;CLEAR BLOCK TRANSFER TRI6GE 
;SET BLOCK TRANSFER TRIGGER 
;RESET DATACO« 
;SET REROTE KODE 
;SET LOCAL MODE 
; OUTPUT BREAK SIGNAL 
;HODE« DISCONNECT 
;TER«iNATE OUTPUT MESSAGE 
; ENTER MONITOR MODE 
; ENTER NORMAL MODE 
;ENTER FAST BINARY OUT MODE 
;SEND ATTENTION CODE 
;SEND FUNCTION DATA 
;SEND PROMPT CODE 



;***** 
; ASCI 

;***** 

NULL 

LF 

FF 

CR 

SO 

SI 

DC2 

DC 3 

ESC 

CLLIM 

ABLNK 

ADOLL 

APSND 

QUOTE 

APARN 

PLUS 

COMMA 

MINUS 

PRIOD 

SLANT 

ZERO 

TWO 

THREE 

FOUR 

FIVE 



***** 

I CHA 
***** 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



********** 

RACTE8 EQU 
********** 

OQ 

12Q 

14Q 

158 
01 6Q 
01 7Q 

22Q 

23Q 

33Q 

40Q 
04 OQ ; 
044Q 

46Q 

47Q 

51Q 

53Q 

54Q 

55S 

56Q 

57Q 

60Q 

62Q 

63Q 

64Q 

65Q 



****** 

ATES * 
****** 

;NULL 
;LINE 
;FORM 



FEED 
FEED 



;RETURN 



;DEVICE 


. CONTROL 2 




;DEVICE 


CONTROL 3 




;ESCAPE 




;CONTROL CODE UPPER 


LIMI 


ASCII BLANK 




;(8) - 


AMPERSAND 




;(•) - 


SINGLE QUOTE 




; ) - 


RIGHT PARENTHESIS 


;PLUS SIGN 




;COMMA 






;MINUS 


SIGN 




;<-) - 


PERIOD 




;</) - 


SLANT 




;ASCII 


ZERO 




; ASCII 


TWO 




; ASCII 


THREE 




; ASCII 


FOUR 




;ASCII 


FIVE 





FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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0036 
0037 
003C 
003 E 

0040 
0041 
0043 
0042 
0044 
0046 
0048 
0Q4A 
004B 
004C 
004D 
004E 
0050 
0052 
0053 
0054 
005 5 
0056 
0059 
005A 
005B 
005C 



0061 
0062 
0063 
0064 
0066 
0069 
006B 
0070 
0073 
0078 
007B 
007C 
007 F 



OOBF 
OOCO 
00C1 
00C2 
00C3 
00C4 
00C5 
00C6 
OOC? 
00C8 

00C4 



SIX EQU 

SEVEN EQU 

BEFIN EQU 

BEFOF EQU 



ASIGN 

AX 

CX 

BX 

DX 

FX 

HX 

JX 

KX 

LX 

KX 

NX 

PX 

RX 

SX 

TX 

UX 

VX 

YX 

ZX 

LTBKT 

ACKSL 

# 

; LOW 

SALLA 

SALLB 

ALCC 

SALLD 

SALLF 

SALLI 

SALLK 

SALLP 

SALLS 

SALLX 

LT8RC 

VTBAR 

A&EL 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

****** 

ER CAS 
****** 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



66Q 
67Q 
74Q 
76a 

100Q 
101Q 
103Q 
102Q 
104Q 
106Q 
11 OQ 
112Q 
113Q 
114e 
115Q 
116Q 

I20e 

122Q 
123Q 
124Q 
125Q 
126Q 
131Q 
132Q 
133Q 
134Q 

********** 

E EQUATES 
********** 

141Q 
142Q 
143Q 
144Q 
146Q 
151Q 
153Q 
160Q 
1630 
170e 
173S 
174Q 
177Q 



;ASCII 
;ASCII 



SIX 
SEVEN 



;"AT" SIGN (S) 
;UPPER CASE A 
;UPPER CASE C 
;UPPER CASE B 
;UPPER CASE D 
/UPPER CASE F 
;UPPER CASE H 
;UPPER CASE J 

;UPPER CASE L 

; UPPER CASE N 
; UPPER CASE P 
;UPPER CASE R 
;UPPER CASE S 
;UPPER CASE T 
;UPPER CASE U 
;UPPER CASE V 
;UPPER CASE Y 
; UPPER CASE Z 
;LEFT BRACKET 
;<*) - BACK SLANT 



* 
* 
* 
;LOWER CASE A 



;********* 

• DISPLAY 
********* 

EQU 



EHLIK 

STPR 

ENDPR 

XONLY 

FILL 

SPFL6 

ALPHA 

NKBER 

APHNH 

SKYAT 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



*********** 

FLAGS EQUAT 
*********** 

277S 
300Q 
30 1Q 
302 Q 
303Q 
304Q 
305Q 
306Q 
307Q 
310Q 



:ASCII LOWER CASE C 
;LOWER CASE D 
; LOWER CASE F 
;LOWER CASE I 
;LOWER CASE K 
; LOWER CASE P 

;LOWER CASE X 
;LEFT BRACE 
; VERTICAL BAR 
; DELETE <RUBOUT> 

**** 

ES * 
**** 

;«AXIRUM ENHANCEMENT CODE 
;START PROTECTED FIELD 
;END PROTECTED FIELD 
;START TRANSMIT-ONLY FIELD 
;EOL FILL CHARACTER 
;N0N-DISPLAYIN6 TERMINATOR 
/ALPHABETIC ONLY 
/NUMERIC ONLY 
/ALPHANUMERIC FIELD 
/SOFT KEY ATTRIBUTE FIELD 



FDSEP EQU 304Q /FIELD SEPARATOR FOR I/O BUF 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 



8080 «ACRO 



OOCC 
OOCE 
OODO 
0800 
8000 
00C3 
O0C9 



0017 
D04F 
0010 
0051 
OOOF 
0010 
0020 
0001 
0002 
0032 
0080 



ASSEMBLER, VER 2.< 


f 


EOL 


EQU 


314Q 


EOP 


EQU 


316Q 


LKLI« 


EQU 


320Q 


NUH2K 


EQU 


4000Q 


B15 


EQU 


100000Q 


IJKP 


EQU 


303Q 


IRET 


EQU 


31 IQ 


l^*ie** ****** ********* 


; WISCELLANEOUS EQUA 


;******************* 


MX ROW 


EQU 


23 


MXCOL 


EQU 


79 


STEND 


EQU 


16 


BLLIM 


EQU 


81 


BLKSM 


EQU 


17Q 


BLKSZ 


EQU 


16 


lERRB 


EQU 


40Q 


RXMIT 


EQU 


1Q 


BNXKT 


EQU 


2 


STOLY 


EQU 


50 


NSI6N 


EQU 


200Q 



ERRORS = PAGE 7 



0000 
0001 
0070 
0080 



8003 
8083 
0002 
0004 
0008 



8007 
8007 
8027 
0020 
0040 
0060 
0080 
0082 
0080 
0Q8A 



800B 
80 OB 
80 OB 
802B 
802B 



;LOyEST VALUE FOR A LINK 

;NUMBER 2048 <2K) 

;BIT 15 

;JUKP INSTRUCTION CODE 

;RETURN INSTRUCTION COBE 
***** 

TES * 
***** 

;nAXIMUn ROW NUMBER 

;MAXIHUM COLUMN NUMBER 

;LAST SOFT KEY DEFINITION RO 

; SPACE FROM RHTMGN FOR BELL 

;BL0CK SIZE MASK 

;BL0CK SIZE 

;I/0 ERROR STATUS BIT 

; RE-TRANSMIT I/O FLAG 

;SEND BINARY DATA 

;SOFT RESET PERIOD - .50 SEC 

;N0 SIGN FLAG FOR INPUT DATA 



;;********************* 

; I/O MODULE EQUATES * 
***** ***************** 

RESET EQU OQ ; RESET TERMINAL VECTOR 

RTJMP EQU 1Q ;VECTOR FOR RESTART "PCHL" 

POCSR EQU 160Q ;PR0CESS0R "OUT" PORT 

IBASE EQU 200Q ;I/0 ADDRESS MSB'S 



156 ;MODULE 11 BASE ADDRESS 

;RESET KEY CONTROL 

;RESET ON 

;RESET OFF 
;NUMBER OF FUNCTION KEYS 



!56 ;MODULE 13 BASE ADDRESS 
;CURSOR COLUMN ADDRESS 

;CURSOR ROW ADDRESS 
;DMA ON, EOP IF DMA ROW = RO 
;DMA OFF, SKIP EOP IF ROWS = 
;DMA OFF 
;DISPLAY OFF 
;INVERSE VIDEO ON 
;NORMAL VIDEO ON 
;HALF BRIGHT ON -INVRS 



; KEYBOARD 




lOKB 


EQU 


3Q-HBASE* 


IKBCO 


EQU 


IOKB+200Q 


RSTON 


EQU 


2Q 


RTOFF 


EQU 


4Q 


NFCTK 


EQU 


8 


; CURSOR CONTROL 


IDISP 


EQU 


7Q+ IBASE* 


ICRCL 


EQU 


IDISP+0 


ICRRW 


EQU 


IDISP+40Q 


MYEOP 


EQU 


40Q 


HYEOL 


EQU 


100Q 


DAOFF 


EQU 


140Q 


CTOFF 


EQU 


200Q 


INVRS 


EQU 


202Q 


NRMAL 


EQU 


200Q 


EHALF 


EQU 


212Q 



CARTRIDGE TAPE 



lOCTU 
ICTCO 
ICTSI 
ICTDO 
ICTDI 

r 
t 



EQU 13Q+IBASE*256 ;M0DULE 15 BASE ADDRES 

EQU lOCTU+OQ ;COMMAND TO CTU 

EQU IOCTU+OQ ;STATUS FROM CTU 

EQU IOCTU+40Q ;DATA TO CTU 

EQU I0CTU+40Q ;DATA FROM CTU 

I-O PRINTER 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
20 
20 
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ERRORS = PAGE S 



8 ODD 
802D 
80QD 
800F 



8005 
8045 
8025 
8065 
8045 

001 F 



FAFF 
OODO 
FBOO 
FCOO 
00 FC 
0000 
FCOO 
FDOO 
FE4F 
0100 



9160 
FFDO 
OOFF 
FFOO 
OOFE 
FEOO 



FFCD 
FFCE 



FFCB 



FFC9 



FFC8 
FFC7 



FFC6 
FFC5 



; 9866 




IPTR1 


EQU 


15Q+IBASE*256 


PT0T1 


EQU 


IPTR1+40Q 


PRST1 


EQU 


IPTR1+06 


PRCL1 


EQU 


IPTR1+2Q 


; RS 


-232 




IPTR2 


EQU 


5Q+IBASE*256 


PT0T2 


EQU 


IPTR2+100Q 


PRST2 


EQU 


IPTR2-t-40Q 


PRDA2 


EQU 


IPTR2+140e 



PRCF2 EQU IPTR2+100Q 



PRBD2 EQU 37Q 



;PARITY AND BAUD RATE HASK 



; VARIABLE SPACE ALLOCATION * 

•k*****ik* ************ ******** 

EQU 175377Q ;DISPLAY UPPER LIMIT 

150000Q/256 ^DISPLAY LOWER LIMIT 



OPLIR 
LWDSP 
YDBUF 
lOBOF 
IBUFH 
IBUFL 
IBUFI 
IBUF2 
DPSTR 
PRBLN 



EQU 

EQU 175400a 

EQU 176000Q 

EQU IOBUF/256 

EQU OQ 

EQU 176000Q 

EQU 176400Q 

EQU 177000Q+79 

EQU 256 



;-IBUFH*256+I0BUF 



;HESSA6E BUFFER 
/PRINTER INPUT BUFFER SIZE 



**************************** 

; OPERATING SYSTEM STORAGE * 
^ **************** *********** 

STACK EQU FTRAK+140Q ;STACK AREA (96 BYTES) 

OSTOR EQU 177720Q /VARIABLES STORAGE AREA 

BASEH EQU OSTOR/256 ;MSB OF DATA PAGE ADDRESSE 

BASE EQU BASEH*256 ;DATA PAGE BASE ADDRESS 

BSEH2 EQU BASEH-1 ;BASE VALUES FOR SECOND PAGE 

BASE2 EQU BSEH2*256 ;0F VARIABLES SPACE 
**************************** 

; VARIABLE SUBROUTINE CALL * 
**************************** 

EONTF EQU OSTOR-3 ; JUMP SUBROUTINE 

CTFAD EQU EONTF+1 /CHARACTER FUNCTION ADDRESS 

i 

f ********************************* ************ 

; NORMAL/SOFT KEY SWAPPED DISPLAY PARAMETERS * 
'********************************************* 



TPLIN EQU EONTF-2 



LTLIN 



LTCOL 
LTROW 



LTDCD 
LTFMT 



EQU TPLlN-2 



EQU 
EQU 



EQU 
EQU 



LTLIN-1 
LTCOL-1 



LTROW-1 
LTDCD-1 



;LSB PART OF 

POINTER IN 

LINE 
/POINTER TO 

NEXT LINE 

LAST LINE 
/COLUMN AND 

/LAST CHARACTER 

(CORRESPONDS TO 



NEXT LINE 
TOP DISPLAY 

LSB PART OF 

POINTER IN 

PROCESSED 

ROW POSITION OF 
PROCESSED 
CHARACTER 



GIVEN BY "CURADR") 
/LAST DISPLAY CODE USED 
/LAST FORMAT CONTROL USED 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
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FILE 
FILE 
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FILE 
FILE 
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FILE 
FILE 
FILE 
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FFC3 
FFC2 



ERRORS = PAGE 9 



FFCI 
FFCO 
FFBF 
FFBE 
OOOF 
FFAF 
FFAE 



FFAC 
FFAA 
FFA8 
FFA6 
FFA4 
FFA3 
FFA1 
FF9F 



FF9E 
FF9D 
FF9C 
FF9B 
FF9A 
FF99 
FF98 

FF96 
FF94 
FF92 
FF91 
FF90 
FF8F 
CFFF 

oobo 

FF8D 
FF8B 



FF8A 
FF89 
FF88 
FF86 
FF85 



CRADR 


EQU 


LTFMT-2 


;ADDRESS OF LAST CHARACTER 


t 






PROCESSED 


POFLD 


EQU 


CRADR-1 


;PROTECT STATE OF (CURADR) 








= -1, PROTECTED 








# -1, NOT PROTECTED 


************************* 


; CURRENT CURSOR VALUES * 


;;*****************'******* 


CRCOL 


EQU 


POFLD-1 


;CURRENT COLUMN AND ROW 


CRROW 


EQU 


CRCOL-1 


;POSITION OF CURSOR 


LTMGN 


EQU 


CRROW-1 


;LEFT MARGIN SETTING 


RTMGN 


EQU 


LTRGN-1 


;RIGHT MARGIN SETTING 


NKSWP 


EQU 


EONTF-RTMGN ;# OF SWAP VARIABLES 


SPSTR 


EQU 


RTMGN-NHSWP ; SWAP BUFFER 


DPTVP 


EQU 


SPSTR-1 


; DISPLAY CURRENTLY ENABLED 








= NORMAL DISPLAY 








-1 = SOFT KEY DISPLAY 


J***************************************** 


; FIXED DISPLAY PARAMETERS (NOT SWAPPED) * 


f ******************** ****[*** ************** 


F©LKS 


EQU 


DPTYP-2 


;FREE BLOCKS LIST HEAD 


0PB6N 


EQU 


FBLKS-2 


;LOW ADDRESS OF DISPLAY AREA 


DPEND 


EQU 


DPBGN-2 


;HIGH ADDR OF DISPLAY AREA 


STKYS 


EQU 


DPEND-2 


;SOFT KEY DISPLAY START ADDR 


CRFKY 


EQU 


STKYS-2 


;CURRENT FUNCTION KEY CHAR 


TLINO 


EQU 


CRFKY-1 


;TOP LINE ABSOLUTE ROW NUKBE 


LLINE 


EQU 


TLINO-2 


;LAST DISPLAY LINE START ADD 


FLINE 


EQU 


LLINE-2 


;POINTER TO LSB PART OF NEXT 








LINE POINTER IN FIRST 








LINE OF NORMAL DISPLAY 


;******************** 


; SCRATCH VARIABLES 


* 


********************* 


TE«P1 


EQU 


FLINE-1 




TEMP 


EQU 


TERPl-1 


;TEMPORARY STORAGE 


CARIN 


EQU 


TEKP-1 


; CHARACTER FROM KEYBOARD 


NCHAR 


EQU 


CARIN-1 


;NUMBER OF CHARS TO BE ADDED 


NROWS 


EQU 


NCHAR-1 


;N0. OF ROWS TO BE ADDED 


NBLKS 


EQU 


NROWS-t 


;N0. OF BLOCKS TO BE ADDED 


CKSAV 


EQU 


NBLKS«1 


;SAVE AREA FOR CHAR 


# 






PRECEDING LINK 


LKSAV 


EQU 


CHSAV-2 


;LINK SAVE AREA 


ELADR 


EQU 


LKSAV-2 


;ADDR OF LAST EOL 


FSTBL 


EQU 


ELADR-2 


;FIRST BLOCK IN DISPL1 


BKFIL 


EQU 


FSTBL-1 


;FILL FLAG FOR FNDCHR 


EOLMV 


EQU 


BKFIL-1 


;FLA6 FOR EOLMOV 


FLCHR 


EQU 


EOLWV-1 


;FILL CHAR SAVE FOR GTBLK 


BSPCE 


EQU 


147777Q 


;UPPER LIMIT OF BUFFER 


LWBUF 


EQU 


130000Q/256 ;LOWER LIMIT 


BFB6N 


EQU 


FLCHR-2 


;LOW ADDR OF NON-DISPLY BUFF 


BFEND 


EQU 


BFBGH-2 


;HI6H ADDR FOR BUFFER 


^* ****************************** ********* 


; STORAGE 


FOR CHARACTERS TO BE STORED * 


***************************************** 


FTCTL 


EQU 


BFEND-1 


; FORMAT CONTROL TO BE ENTERE 


OCHAR 


EQU 


FTCTL-1 


;NEXT CHAR TO BE DISPLAYED 


CHAR 


EQU 


DCHAR-1 


;CURRENT CHAR BEING PROCESSE 


CKRTN 


EQU 


CHAR-2 


;CURRENT TYPE CHECK ROUTINE 


TPCOL 


EQU 


CKRTN-1 


; COLUMN if STORAGE FOR RCADDR 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



8080 MACRO ASSEMBLER, VER 2.4 



ERRORS = PAGE 10 



FF84 
FF83 
FF82 

FFDB 
FFDA 
FFD9 



OOOA 
FF78 



FF77 
FF76 
FF75 
FF73 



FF72 
FF71 

FF70 

0100 
02 00 
04 00 
0800 
1000 
2000 
4000 
8000 

FF6F 

0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 

FF6E 

0001 
0002 
0004 
0008 
0010 
0040 
0080 



NWCOL 


EQU 


PARMI 


NWROW 


EQU 


PARK2 


SRNRW 


EQU 


PARKS 



^ ********************************* 
; STORAGE FOR CURSOR POSITIONING * 

;********************************* 

COUNT EQU TPCOL-1 ;NU«BER OF BYTES TO FILL 

NROLL EQU COUNT-1 ;NUMBER OF LINES TO ROLL 
RLLCT EQU NROLL-1 ; ROLL COUNTER 



;NEW COLUKN NUf^BER 

;NEy ABSOLUTE ROW NUMBER 

;NEy SCREEN ROW SETTING 



*********************** 

HORIZONTAL TAB TABLE * 
*********************** 

HBLEN EQU 10 ;TABLE LENGTH (= 10 X 8) 

HBTBL EQU RLLCT-HBLEN 
;****************♦****** 

; DISPLAY SEND STORAGE * 
^ ************** ********* 

CSPEN EQU HBTBL-1 ;CURRENT ENHANCEMENT IN 
EHOUT EQU CSPEN-1 ;LAST ENHANCEMENT OUT 
CLTST EQU EHOUT-1 ;CURRENT ALTERNATE SET OUT 
6TADR EQU CLTST-2 ;CURRENT CHARACTER ADDRESS 
**************************** 

; FLAGS AND TABLE POINTERS * 
^* *************** *********** 

CRSET EQU GTADR-1 ;CURRENT ALTERNATE CHAR SET 

KFCTK EQU CRSET-1 ;KE¥BOARD FUNCTION CODE 

;**************#********************************** 

MFLGS EQU KFCTK-I ;BLOCK TRANSFER PENDING FLAG 
^ ******************************************* ****** 

SDC2 EQU 1Q*256 ;DC2 PENDING 

SSTAT EQU 2Q*256 ;TERMINAL STATUS PENDING 

;TERMINAL STATUS 2 PENDING 
;DEVICE STATUS PENDING 
;CURSOR SENSE PENDING 
;FUNCTION KEY PENDING 
;DISPLAY SEND PENDING 
; DEVICE DONE PENDING 
^ ******************************* ********** 

KLGS2 EQU MFLGS-1 ;MAIN CODE MODE FLAGS 
;***************************************** 

SVREC EQU 1Q ;DEVICE RECORD PENDING 

SINRY EQU 2Q ;BINARY RECORD PENDING 

RLSNS EQU 4Q ;RELATIVE CURSOR SENSE 

ECINP EQU 10Q ;ESC RECEIVED IN BLOCK MODE 

FSOUT EQU 20Q ; FIRST SOFT KEY DATA OUT 

WPDEL EQU 40Q ;DELETE CHAR W/ WRAP AROUND 

WPFL6 EQU 100a ;LINE WRAP AROUND OCCURRED 

NRWST EQU 200Q ;NEW ABSOLUTE ROW SET 
^ ********************************* ******* 

DFLGS EQU ML6S2-1 ;DATA TRANSFER FLAGS 

^ ******************************** ******** 

SACOM EQU 001S ;DATACOM/KEYBOARD 

CTXFR EQU 2Q ; CONTINUE BUFFER TO DATA COM 

NSEND EQU 4Q ;N0 DISPLAY DATA TO SEND 

SPTRM EQU 10Q ;SKIP BLOCK TERMINATOR 

FTK2D EQU 20Q ; FUNCTION KEY TO DISPLAY 

KOLOK EQU 100Q ;KB LOCKED BY ESCAPE SEQUENC 

XF2DS EQU 200Q ;I/0 BUFFER TO DISPLAY MODE 



STAT2 
SDVST 
SRSEN 
SCTKY 
SNTER 
SVDUN 



EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 

EQU 



1Q*256 

2Q*256 

4Q*256 

10Q*256 

20a*256 

40Q*256 

100Q*256 

2006*2 56 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
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ERRORS = PA6E 11 



FF6D 

FFf F 
0000 

ooai 

FF6C 

0020 
OOFF 

FF6B 
FF6A 
FF69 
FF68 
FF67 



FFD5 
FF&E 
FFD7 



FF66 

0080 
0040 
0020 
0010 
0008 
0004 
0002 
0001 

FF65 

0001 
0002 
0004 
0008 

0010 
0020 



********************* 
TMFCT EQU DFLGS-1 

;******************** 

SPXFR EQU -1 
DLTRK EQU 
INTRW EQU 1 

;******************** 

SPOWL EQU TMFCT-1 

^•k* It* ****** ********** 

SOWON EQU 40Q 
SOWOF EQU 377Q 

MKROW EQU SPOWL-1 
KKFLG EQU MKROW-1 



LCHAR 


EQU 


MKFLG-1 


TCHAR 


EQU 


LCHAR-1 


CAFL6 


EQU 


TCHAR-1 



J******************** 

; POINTERS FOR BINARY 
********************* 

LADDR EQU PARM6 
LDATA EQU IDATA 
LHKSK EQU PARKS 



************************** 

;N0N-D1SPLAYING TERMINATOR 
************************** 

;TER«INATE TRANSFER 
;DELETE TERMINATOR 
; IGNORE TERMINATOR 
******* *************** 

;SPACE OVERWRITE LATCH 
********************** 

;SPOW LATCH ON 
rSPOW LATCH OFF 
***************************** 

;MEMORY LOCK ROW 
;MEflORV LOCK FLAG 
;LAST CHARACTER PROCESSED 
;CURRENT TEST PATTERN CHAR 
;CURSOR ADVANCE FLAG 
********* 

LOADER * 
********* 

;BYTE ADDRESS PARAMETER 
;INPUT DATA ACCUMULATOR 
; 16-BIT CHECKSUM 



;V*V*V*V*V*V*V*V*V*V*V*V*V*V*V*V*V*V 

; CTU/IO EQUATES - 4/11/76 - 2255 HOURS 



; TAPE DISTANCE MEASUREMENT 



AS OF 3/1/75, -017125" OF TAPE MOTION IS 
EQUIVALENT TO 1 TACH EDGE. THE COUNT IS 
IN ERROR WHEN STARTING OR STOPPING BY 
1 TACH EDGE (STOPPING IN A GAP MAY CAUSE 
AN ERROR OF TWO TACH EDGES). 



************** 

1 ;CTU STATUS 
************** 

;TACH INTERRUPT 
;BYTE READY 

;TAPE HOLE 

;TACH (58.4 EDGES/IN) 

;RECORD IN PROGRESS 

;RI6HT CARTRIDGE INSERTED 
;LEFT CARTRIDGE INSERTED 
*************** 

1 ;I/0 FLAGS 1 
*************** 

;READ WITHOUT WAIT MODE 
;READ KEY INITIATED READ 
;FILE READ 
;RECORD DISPLAY AND REWIND 

OLD OUTPUT CTU (LOGGING) 
;START "RECORD" MODE 
;FILE COPY FROM DISPLAY - 

INHIBIT ROLL UP 



^ ****** *********** 


CSTAT 


EQU 


CAFL6- 


^ ****** *********** 


TKI 


EQU 


2006 


RDY 


EQU 


100Q 


GAP 


EQU 


40Q 


HOL 


EQU 


20Q 


TAK 


EQU 


10Q 


RIP 


EQU 


4Q 


CIR 


EQU 


2Q 


CIL 


EQU 


1Q 


****************** 


IFLGS 


EQU 


CSTAT- 


;***************** 


RWOWT 


EQU 


1Q 


UREAD 


EQU 


2Q 


FLRED 


EQU 


4Q 


RCRWD 


EQU 


10Q 


RCINI 


EQU 


20Q 


RCPGE 


EQU 


40Q 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 



20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 
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0080 

FF64 

0001 
0020 
0040 
0080 

FF63 

0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 

FF62 

0001 
0002 
0004 
0008 
0010 
0020 
0040 

FF61 

FF5F 

405F 

FF5E 
FF5D 
FF56 

FF55 

0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 



0001 
0002 
00Q4 
00U8 
0010 
0020 



VRIFY EQU 200« ;"CTU2BF* PERFORMS VERIFY 

^* *** Ik**** *****ie-lt*** ****** ******* 



IFL62 


EQU 


IFLGS-1 


;***•*****•******** 


ETB2D 


EQU 


1Q 


XS2BF 


EttU 


40Q 


DPBTH 


EQU 


100Q 


EDDSP 


EQU 


200Q 



LP« 


EQU 


1Q 


LTFWD 


EQU 


2Q 


FPS 


EQU 


4Q 


CDEXC 


EQU 


10Q 


DLHOL 


EQU 


20Q 


BOT 


EQU 


40Q 


LP 


EQU 


100Q 


EW 


EQU 


200Q 



;I/0 FLAGS 2 



EXTERNAL BUFFER TO DATA COH 
TRANSFER DISPLAY TO BUFFER 
BOTTOM OF DISPLAY REACHED 
END OF DISPLAY REACHED 



********************************* 

UNITO EQU IFLG2-1 ;UNIT STATUS 
******************************** 

;TAPE AT OR BEFORE LOAD POIN 
;TAPE LAST HOVED FORWARD 
;TAPE WRITE PROTECTED 
/SUCCESSFUL COMMAND EXECUTIO 
;DOUBLE HOLE FOUND 
;TAPE PAST BOT HOLES 
;TAPE PAST LP HOLE 
;TAPE PAST EW HOLE 
******************************************** 

CTRLO EQU UNITO-1 ;DATA TRANSFER FLAGS: * 
******************************************** 

;END OF FILE 
;END OF VALID DATA 
;HARD ERROR 
;SOFT ERROR 
; INTERRUPT ERROR FLAG 
;WRITE ERROR 
;DATA RECORDED 
;*********************************************«* 

RLTAK EQU CTRLO-1 ;GAP LENGTH COUNTER 

;****************************************** 

ASTAK EQU RLTAK-2 /ABSOLUTE TACH COUNTER 
f**** *************************** *********** 

SRTAK EQU 401 57Q /STARTING VALUE 

J************************************************* 

FLNUM EQU ASTAK-i /CURRENT FILE NUMBER 

STCNT EQU FLNUM-1 /SOFT ERRORS PER PASS 

OTHER EQU STCNT-7 /STORAGE FOR UNIT NOT SEL. 
/******************************************* 

CMND EQU OTHER-1 /CURRENT CTU COMMAND: * 
• ******************************************* 



EOF 


EQU 


1Q 


EVD 


EQU 


2Q 


HDERR 


EQU 


4Q 


STERR 


EQU 


10Q 


HDER1 


EQU 


20Q 


WTERR 


EQU 


40Q 


DTATR 


EQU 


100Q 



RUN 
FWD 
FST 
REC 
USL 
GEN 
ANR 
ANL 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



1Q 

2Q 

4Q 

10Q 
20Q 

40Q 
100Q 
200Q 



/MOVE TAPE 
/FORWARD 



/FAST 

/RECORD 

/SELECT LEFT UNIT 

/GAP GENERATE 

/LIGHT FOR RIGHT UNIT 
/LIGHT FOR LEFT UNIT 
****************************************** 

/ INPDEV, OUTDEV, BXSTAT - I/O DEVICES * 

j;**** ******************************* ****** 

/LEFT CARTRIDGE TAPE UNIT 

/RIGHT CARTRIDGE TAPE UNIT 

/DISPLAY 

/PRINTER 

/ALTERNATE I/O 

/DATA CO KM 



LTCTU 


EQU 


1Q 


R6CTU 


EQU 


2Q 


DSPLY 


EQU 


4Q 


PINTR 


EQU 


10Q 


ALTIO 


EQU 


20Q 


DTCOM 


EQU 


40Q 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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0080 

FF54 
FF53 
FF52 
0020 
FF51 
FF50 



FF4F 



FF4E 
FF4D 
FF4C 
FF4B 
FF4A 
FF49 
FF48 
FF47 
FF46 
FF3D 
003D 
FF3C 
FF3B 



FFD8 
FFDA 
FFD9 
FFD8 
FFD7 
FFD5 



FF3A 
FF39 
FF38 
FF37 
FF36 
FF35 



FF33 
FF31 
FF2F 
FF2C 
FF2B 
FF2A 
FF29 



FF27 



BFBSV E6U 200Q 



SNCNT 
CBLNK 
CBLTM 
CBDLY 
HLCNT 
TSTAL 

: I/O 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



CHND-1 
SNCNT- 
CBLNK- 

40a 

CBLTH- 
HLCNT- 



ERRORS = PAGE 13 



;BUF HELD BY UHSPECIFIED DEV 

;KUM. OF KBSCAN PER CTU SCAN 
;BLINK MASK FOR EJECT LIGHTS 
;BLINK TIMER 
;BLINK DELAY 
;HOLE COUNTER 
;TAPE STALL COUNTER 



*********** 

VARIBLES * 
*********** 

ICERR EQU TSTAL-1 



;**** 



IPDEV 
OTOEV 
ICDPT 
ISTA3 
ISTA2 
ISTA1 
ISTAO 
XRLIM 
CPLIM 
BDBUF 
BDBFL 
BDPTR 
BDEND 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



ICERR- 

IPDEV-1 

OTDEV-1 

ICDPT- 

ISTA3- 

ISTA2- 

ISTA1- 

ISTAO- 

XRLIH- 

CPLIM- 

BDBUF- 

BDBUF- 

BDPTR-1 



1 



;l/0 E 
= 
-1 = 
;CURRE 
; CURRENT 
;DEVICE 
;DEVIC 
;DEVIC 
;DEVIC 
;DEVIC 
;TRANS 
;C0HPA 
;BIN T 
;LS 
;B2DBU 
;B2dBUF 



1 
1 
1 
1 
1 
1 
9 
BASE 



RROR FLAG 
NO ERROR 
ERROR OCCURRED 
NT INPUT DEVICE 

OUTPUT DEVICE 
FLAG POINTER 
E STATUS BYTE 3 
E STATUS BYTE 2 
E STATUS BYTE 1 
E NUMBER FOR STATUS 
FER LIMIT 
RE LIMIT 

DECIMAL CONV BUFFER 
B PART OF ••B2DBUF" 
F -GET" POINTER (LSB) 
END POINTER 



I/O CONTROL VARIABLES 



ICDEV 
ICOUT 
ICINP 
ICTYP 
ICMND 
ICCNT 



EQU PARMI ; DEVICE FLAG 

EQU PARM2 ;OUTPUT DEVICE ACCUMULATOR 

EQU PARM3 ;INPUT DEVICE ACCUMULATOR 

EQU PARM4 ;COMNAND MODIFIER FLAG 

EQU PARM5 ;COMMAND TYPE FLAG 

EQU PARM6 ;DATA COUNT (2 BYTES) 



I/O BUFFER INFORMATION STORAGE 



B1STT EQU BDENO-1 ;STATUS OF FIRST BUFFER 

B1TYP EQU B1STT-1 ;TYPE (-1*N0RM, 0=EOF, 1=EVD 

BILEN EQU B1TYP-1 ;LENGTH OF RECORD 

B2STT EQU BlLEN-1 ;STATUS OF SECOND BUFFER 

B2TYP EQU B2STT-1 ;TYPE (-t=NORM, 0=EOF, 1=EVD 

B2LEN EQU B2TYP-1 ;LEN6TH OF RECORD 



STORAGE FOR CARTRIDGE TAPE INTERRUPT ROUTINES 



CIADR EQU B2LEN-2 ;ADDRESS (HAS SEVERAL USES) 

CISPT EQU CIADR-2 /POINTER TO BUFFER STATUS 

CIBPT EQU CISPT-2 ;POINTER TO BUFFER 

CICNT EQU CIBPT-3 ;6ENERAL COUNTERS 

CITRL EQU CICNT-1 ;RE-READ COUNTER, HOLE CMTR 

CICSM EQU CITRL-1 /CHECKSUM COUNTER 

CISTA EQU CICSM-1 /COMMAND SOURCE FLAG 

; STORAGE FOR READ AND RECORD 

NTRED EQU CISTA-2 ;PTR INTO BUF FOR NEXT READ 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 



LTRED 


EQU 


NTRED-2 


SPCTU 

• 


EQU 


LTRE&-1 


SVINP 


EQU 


SPCTU-1 


SVOUT 


EQU 


SVINP-1 



FILE 20 

8080 MACRO ASSEMBLER, VER 2.4 ERRORS = PAGE 14 FILE 20 

FILE 20 

FILE 20 

FILE 20 

FF25 LTRED EQU NTRED-2 ;PTR INTO BUF FOR READ REPEA FILE 20 

FF24 SPCTU EQU LTRED-1 ;SWAP CTU IN LOGGING KODE FILE 20 

-1 = SWAP ENABLED FILE 20 

= DISABLED FILE 20 

FF23 SVINP EQU SPCTU-1 ;"INPDEV" SAVE FOR LOCAL RCR FILE 20 

FF22 SVOUT EQU SVINP-1 ;SAVE OUTDEV DURING LCL READ FILE 20 

; FILE 20 

; DATA FOR FORMAT DISPLAY STORAGE FILE 20 

; FILE 20 

FF21 EDCOL EQU SVOUT-1 ;EN0IN6 COLUMN AND ROW FOR FILE 20 

FF20 EDROW EQU EDCOL-1 ;PREV NON-PROTECTED FIELD FILE 20 

; FILE 20 

; FILE 20 

; EXTENDED MAIN CODE RAH AREA FILE 20 

FILE 20 

FE80 XRASP EQU 1772000 FILE 20 

J**************************************** FILE 20 

FE7F DVFLG EQU XRASP-1 ;DEVICE PRESENT FLAG FILE 20 

•It*************************************** FILE 20 

0080 CTUIN EQU 200Q ;CTU CODE PRESENT FILE 20 

0040 ALTIN EQU 1 OOQ ; ALTERNATE I/O PRESENT FILE 20 

;******************** FILE 20 

; PRINTER VARIABLES * FILE 20 

J******************** FILE 20 

FE7D PRBBG EQU DVFL6-2 ;START OF PRINTER BUFFER FILE 20 

FE7B PRSPT EQU PRBB6-2 ;LOAD POINTER FILE 20 

FE79 PRBPT EQU PRSPT-2 ;UNLOAD POINTER FILE 20 

FE78 PRABT EQU PRBPT-1 ;PRINTER ERROR FLAG FILE 20 

; = 0, NO PRINTER ERROR FILE 20 

= -1, PRINT ERROR OCCURRED FILE 20 

FE77 PRFL6 EQU PRABT-1 ;PR1NTER TYPE FLAG FILE 20 

; = 0, NO PRINTER FILE 20 

= 1, PARALLEL INTERFACE FILE 20 

= 2, RS-232 INTERFACE FILE 20 

FILE 20 

********************************* FILE 20 

; ENTRY VECTORS TO I/O ROUTINES * FILE 20 

;******************************** FILE 20 

; FILE 20 

; KEYBOARD INITIATED FUNCTIONS FILE 20 

; FILE 20 

2800 lOORG EQU 24000Q ;START OF I/O CODE FILE 20 

2802 ICKEY EQU I00R6+2 ;I/0 CONTROL KEY FILE 20 

2805 RDKEY EQU ICKEY+3 ;READ KEY FILE 20 

2808 CLRED EQU RDKEY+3 ;CONTROL READ KEY FILE 20 

280B RCKEY EQU CLRED+3 ;RECORD KEY FILE 20 

280E SLKEY EQU RCKEY+3 ;SELECT KEY FILE 20 

2811 TTCTU EQU SLKEY+3 ;CTU SELF-TEST FILE 20 

2814 CNDTN EQU TTCTU+3 ^CONDITION CARTRIDGE TAPES FILE 20 

2817 RTCTU EQU CNDTN+3 ;SOFT RESET FOR CTU FILE 20 

; FILE 20 

; EXTERNALLY INITIATED FUNCTIONS FILE 20 

; FILE 20 

281A ICNTL EQU RTCTU+3 ;I/0 CONTROL ESCAPE SEQUENCE FILE 20 

281D IST60 EQU ICNTL+3 ;SEND DEVICE STATUS FILE 20 

2820 IDN60 EQU IST60+3 ;SEND COMPLETION CODE FILE 20 

2823 IRD60 EQU IDN60+3 ;SEND 1/0 RECORD FILE 20 

2826 RRD60 EQU IRD60+3 ;START REMOTE RECORD FUNCTIO FILE 20 

2829 BRYGO EQU RRDGO-t-S ;SEND BINARY DATA FILE 20 

282C CDCDP EQU BRYGO+3 ;SEND BINARY FILE FILE 20 
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282F 
2832 
2835 
2837 
28 3A 
283D 
2840 
2843 
28 46 
28 49 
284C 
284F 
2852 
28 55 
2858 
285B 
285E 
2861 
2864 
2867 
286A 
286D 
2870 
2873 
2876 
2879 
287C 
287F 
2882 



FF20 
FF12 
FF12 
0001 
0008 
0010 
0004 
0002 



0040 
0043 
0046 
0049 
004C 
004F 
0052 
0055 
0058 
005B 
00 5E 



;******************** 


; INTERNAL 


ROUTINES * 


J *ik ******* ****:* ****** 


CTMON 


Eau 


CDCDP+3 


PTPLN 


Eau 


CTHON+3 


DOCTI 


Eau 


PTPLN+3 


RABRT 


E3U 


DOCTI+2 


BYCHK 


EQU 


RABRT+3 


CINTR 


EQU 


BYCHK+3 


STJMP 


EQU 


CINTR+3 


6TPTR 


EQU 


STJMP+3 


EOFC 


EQU 


6TPTR+3 


GIOBO 


EQU 


EOFC+3 


PUT 10 


EQU 


GlOBO+3 


EVOC 


EQU 


PUTIO+3 


SCPRC 


EQU 


EVDC+3 


BD200 


EQU 


SCPRC+3 


SCPFL 


EQU 


BD200+3 


URRWD 


EQU 


SCPFL+3 


GETIO 


EQU 


URRWD4-3 


RVEVD 


EQU 


6ETI0+3 


RDBOT 


EQU 


R\rEVD+3 


XRD2D 


EQU 


RDBOT+3 


CM0N1 


EQU 


XRD2D+3 


SLLCT 


EQU 


CM0N1+3 


SLRCT 


EQU 


SLLCT+3 


CLPRT 


EQU 


SLRCT + 3 


SREVD 


EQU 


CLPRT+3 


BKSPW 


EQU 


SREVD+3 


BKSPX 


EQU 


BKSPW+3 


EDRED 


EQU 


BKSPX+3 


SDEOF 

• 
* 


EQU 


EDRED+3 


• 
« 


KEYBOARD SLOW 


KSRAK 


EQU 


177440Q 


KBUF2 


EQU 


KSRAH-14 


KCTSH 


EQU 


KBUF2 


LFFKY 


EQU 


1Q 


LHFKY 


EQU 


10Q 


RHFKY 


EQU 


20Q 


LFIKY 


EQU 


4Q 



;«0N1T0R CARTRIDGE DRIVES 
;PUT TOP LINE ONTO I/O DEV»S 
;imTIAL CTU INTERRUPT VECTO 
;ABORT USER INITIATED READ 
;WAIT UNTIL TAPE I/O DONE 
;CTU INTERRUPT ROUTINE 



LF2KY EQU 2Q 



;******************** 


; PT773 


ENTRY VECTOR 


********************* 


DPMSG 


EQU 


100Q 


RTDSP 


EQU 


DPMSG+3 


DCNUM 


EQU 


RTDSP+3 


DPLUS 


EQU 


DCNUM+3 


DMNUS 


EQU 


DPLUS+3 


EC END 


EQU 


DMNUS+3 


CKLIM 


EQU 


ECEND+3 


CBLXF 


EQU 


CKLIM+3 


SLXFO 


EQU 


CBLXF+3 


SLXFA 


EQU 


SLXFO+3 


SRTBL 


EQU 


SLXFA+3 



RAK EQUATES 

;UPPER LIWIT OF SLOW RAK 
;AKT.KEYS STATE TABLE 
;SHIFT KEYS 
;F1X SHIFT LEFT 
;LEFT SHIFT 
; RIGHT SHIFT 
;LEFT SHIFT 1 
;LEFT SHIFT 2 



************************* ******* 

POINTERES * 

******************************** 

;DISPLAY MESSAGE 
/RESTORE NORMAL DISPLAY 
/ACCUMULATE DIGIT AND SIGN 
;FOR PARAMETERIZED ESCAPE 
/SEQUENCES 
/TERMINATE ESCAPE 



/KEYBOARD INITIATED BLK XFR 
/START BLOCK RECORD 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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0061 
0064 
0067 
006A 
006D 
0070 
0073 
0076 
0079 
007C 
007F 
0082 
0085 
0088 
008B 
008E 
0091 
0094 
0097 
009A 
009D 
OOAO 
00A2 
00A5 
00A8 
OOAB 
OOAE 
OOBI 
00B4 
00B7 
OOBA 
OOBD 
OOCO 
00C3 
00C6 



00C9 
OOCC 
OOCF 
00D2 
00D5 
00D8 
00 OB 
OODE 
00E1 
00E4 
00 E7 
00 E A 
OOEO 
OOFO 
00 F3 
00 F6 
00F9 
OOFC 
OOFF 
0102 
0105 
0108 
0108 



CURPH 
CRPHD 
FECNT 
PXXXX 
CEARt 
CEARS 
FDTB2 
STERM 
STRH1 
XUTDC 
TMTST 
CINTO 
IITDO 
GTDSP 
LFEED 
EPAND 
NTCHR 
6TDC« 
MXSCO 
MKOFO 
HN6U0 
BFMSG 
&TEST 
IRM60 
B2DEC 
B2DE0 
RADRA 
6M0DE 
RAODR 
IRPON 
CXXXX 
IHOFF 
CURPL 
CURPR 
WL215 



CRRET 
CRPRT 
RLLUP 
RLUP2 
CDOOO 
DLWRP 
CD100 
PTLIN 
LNINS 
CRADV 
LNDEL 
DXB2D 
CURPD 
CURPU 
FDLSO 
RADR4 
NTCHO 
RLLDN 
DSPLC 
DSPLA 
CHAIN 
P5L0CK 
SHSTl 



EQU 
EQU 
E6U 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



SRTBL+3 
CURPH+3 
CRPHD+3 
FECNT+3 
PXXXX+3 
CEARL+3 
CEARS+3 
F0TB2+3 
STER«+3 
STRMl+3 
XUTDC-t-S 
TRTST+3 
ClNTO+3 
IITDO+3 
6TDSP+3 
LFEED+3 
EPAND+3 
NTCHR+3 
6TDCM+3 
RKSCO+3 
«K0F0+3 
HNSUO+3 
BFHS6+2 
DTEST+3 
IRM60+3 
B2DEC+3 
B2DE043 
RACRA+S 
6W0DE+3 
RADDR+3 
IRPON+3 
CXXXX+3 
IHOFF+3 
CURPL+3 
CURPR+3 



WL215+3 
CRRET+3 
CRPRT+3 
RLLUP+3 
RLUP2+3 
CDOOO+3 
DLWRP+3 
CD100+3 
PTLIN+3 
LNINS+3 
CRADV+3 
LNDEL+3 
DXB2D+3 
CURPD+3 
CURPU+3 
FDLSO+3 
RADR4+3 
NTCHO+3 
RLLON+3 
DSPLC+3 
DSPLA+3 
CHAIN+3 
KLOCK+3 



HOME CURSOR <-X«IT ONLY) 

CURSOR HOME DOWN 

ROT IN BY26X F FREE BLOCKS 

RELEASE BLOCKS FROM DISPLAY 

CLEAR LINE 

CLEAR DISPLAY FROM CURSOR 

SET BIT N (B-REG = N) 

SEND TERMINATORS 

SEND TERMINATOR ONLY 

TRANSMIT CHARACTER IN A-REG 

TERMINAL SELF-TEST 

EXECUTE CHARACTER FUNCTION 

INIT FOR DISPLAY GET 

GET DISPLAY BYTE 

NO LINE FEED 

EXPAND DISPLAY CONTROL CHAR 

GET NEXT DISPLAY CHARACTER 

PROCESS DATA COMM INPUT 

LOCATE FIRST UNLOCKED ROW 

TURN OFF MEMORY LOCK 

HANG TERMINAL ON FATAL ERROR 

BUFFER OVERFLOW MESSAGE 

DATA COMM SELF-TEST 

EXECUTE CODE FROM OPTION RG 

CONVERT BINARY TO DECIMAL 

CONVERT SINGLE BYTE TO DEC 

LOCATE CURSOR LOCATION 

CHECK FOR PAGE MODE 

DETERM.LOC.OF ASCI CHAR. 

INSERT CHAR. ON WITH WRAP 

INSERT CHARACTER 

INSERT CHARACTER OFF 

CURSOR POINTER LEFT 

CURSOR POINTER RIGHT 

RETURN FROM BISY MOOUL 



;DELETE WITH WRAP-AROUND 
;DEL.CHAR. 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
20 
20 
20 
20 
20 
20 
20 
2G 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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01 OE 
0111 
0114 
0117 
Oil A 
01 ID 
0120 
0123 
0126 
0129 
01 2C 



ERRORS = PAGE 17 



FE67 

FE67 

0001 
0002 
0004 
0008 
0020 
0040 
0080 

FE66 

0001 
0002 
0004 
0008 

FE65 



FE64 
FE63 
FE62 
FE60 
FE5F 
FE5D 
FE5C 
FE5B 
FE59 
FE58 

FE57 

FE56 

FE55 
FE54 

FE53 



BSPC1 


EQU 


SHST1+3 


CEDIT 


EQU 


DSPC1+3 


IITDG 


EQU 


CEDIT+3 


RADR1 


EQU 


IITD6+3 


CKFMS 


EClU 


RADR1+3 


CER02 


EQU 


CKFKS+3 


DSPL1 


EQU 


CER02+3 


CRDL1 


EQU 


DSPL1+3 


CERLO 


EQU 


CRDLl+3 


60 


EQU 


CERLO+3 


WLOOP 


EQU 


60+3 




; BISY RAH VARIASBLE 


# 


24 BYTES 


;*******************************♦****** 


BY RAW 


EQU 


177120Q+23 ;UPPER LIMIT 


;************************************** 


BYFL1 


EQU 


BYRAM ;BISY FLAG 1 


;*****•******************************** 


BYMOV 


EQU 


1Q ;BLOCK MOVE 


BY INS 


EQU 


2Q ;INSERT 


BYBEF 


EQU 


4Q ;BEFEHLSZEILE 


BYKF1 


EQU 


10Q ; RECORD 


BYMF2 


EQU 


40Q ;READ 


BYHF3 


EQU 


100Q ; 


BYMF4 


EQU 


200Q 


*************************************** 


BYFL2 


EQU 


8YFL1-1 ;BIS¥ FLAG 2 


;*************************♦************ 


BYFCI 


EQU 


1Q ;FLAG MAIN CODE- 


BYFC2 


EQU 


2Q ;ROUTINE F C E N T 


BYCIF 


EQU 


4Q ;FLAG C R I N S 


BYCID 


EQU 


10Q ;FLAG C R I N S 


*************************************** 


BYFL3 


EQU 


BYFL2-1 ;BISY FLAG 3 


;********************«***************** 


;BISY 


ROUT. 


MAIN CODE Z-FELOER 


******** It **1fk***-k1t1e*****1t*ifk *********** 


BYCI1 


EQU 


BYFL3-1 ;Z-FELD COLUMN* CRINS 


BYCI2 


EQU 


BYCI1-1 ;Z-FELO CRINS 


BYZ01 


EQU 


BYCI2-1 ;SCRATCH FELD 


BYZ02 


EQU 


BYZ01-2 ;SCRATCH FELD 2-BYTES 


BYZ03 


EQU 


BYZ02-1 ;Z-FELD BY100 


BYZ04 


EQU 


BYZ03-2 ;Z-FELD BYlOO 2-BYTE 


BYZ05 


EQU 


BY2D4-1 ; Z-FELD BYlOO 


BYZ06 


EQU 


BYZ05-1 ;Z-FELD CRINS 


BYZ07 


EQU 


BVZ06-2 ;Z-FELD CRINS 2-BYTE 


BYZ08 


EQU 


BYZ07-1 ;Z-FELD CRINS 


^****** ***************** **************** 


BYOOC 


EQU 


BYZ08-1 ;BISY ROUT. INPUT CHARACTER 


;************************************** 


BYPZ1 


EQU 


BYOOC-1 ;F R E I 



BYINI EQU BYPZ1-1 ;B¥INT IND- 

8YIN2 EQU BYIN1-1 ;BYINT LAST CHAR. 

BYM01 EQU BYIN2-1 ;INDIKATOR BLOCKMOVE 
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FILE 
FILE 
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FILE 
FILE 
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FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FCOO 

FC01 
FC02 
FC03 
FC04 
FC05 
FC07 
FC09 
FCOA 
FCOB 

FCOD 

FCOE 
FCOF 
FC10 
FC11 
FC12 
FC13 

FC14 
FC15 
FC16 

FC17 

FC18 

FC19 
FC1B 
FC1C 
FC1D 
FCIE 



0001 
0002 
0003 
0004 
003 C 
003D 
003E 
005 F 
007D 



l^************* ******* It********** ******■!(***** 

; VARIABLE Z-FELBER 

; BlSt ROUTINEN FUER 

; DISPLAY MANIPULATIONEN 



A C H T U N G 
NICHT FUER CTU 
BENUTZEN 



- PRINTER 



OATACOWM 



J******************************************* 
YZ001 EQU IBUF1 ;LOWER LIMIT DATA BUFFER 1 



¥1101 
f1102 
Y1103 
Y1104 
Y1106 
Y1107 
Y1108 
Y1109 
Y1100 
******* 

YZ002 
;****** 

Y1201 
Y1202 
Y1204 
Y1207 
Y1208 
Y1209 
;****** 

Y1251 
Y1262 
Y1281 

Y0801 



EOU YZ 001+1 

EfiU Y1101+1 

EQU Y1102-H 

EQU Y1103+1 

EQU Y1104+1 

EQU Y1 106+2 

EQU Y1107+2 

EQU Y1108+1 

EQU Y1 109 + 1 
************* 

EQU Yl 100+2 
************* 

EQU YZ002+1 
EQU Y1201+1 
EQU Y1202+1 
EQU Y1204+1 
EQU Yl 207+1 
EQU Y 1208+1 
************* 

EQU Y1209+1 
EQU Y1251+1 
EQU Y1262+1 



ABS. ROW # FROM 

COL # FROM 

ABS. ROy # TO 

COL U TO 

CHAR. ADR. FRO« 

CHAR. ADR- TO 

ABS. ROW U PARAM. 

COL # PARAM - 

CHAR. ADR PARAM. 



*************************** 



*** 

» 
i 

» 

i 

f 
*** 



********************* 

CRROW LAST INSERT 
CRCOL LAST INSERT 
AKT. DEL. CHAR- 
LAST DEL. CHAR- 
ABS. INSERT CMOVE> ROW# 
INDIKATOR 
********************* 

INDIKATOR 
INDIKATOR 
INDIKATOR 



EQU Y1281+1 ;CHAR. COUNTER MAKRO 



YZ003 EQU Y0801+1 

;******************************************* 



YZ010 
YZ100 
YZ101 
YZ102 
YZ103 



EQU 
EQU 
EQU 
EQU 
EQU 



YZ003+1 
YZ010+2 
YZlOO+1 
YZ101+1 
YZ102+1 



;Z-FELD 
;Z-FELD 
;Z-FELD 
;Z-FELD 
;Z-'FELD 



2 BYTES 



2 BYTES 



******************************************** 



;****************************************** 



YOXX 



OCTALKONSTANTEN 



^*** ****************************** ********* 



Y001 


EQU 


1Q 


;=01H 


Y0 02 


EQU 


2Q 


;=02H 


Y003 


EQU 


3Q 




Y0 04 


EQU 


4Q 




Y074 


EQU 


743 




Y075 


EQU 


75e 




Y076 


EQU 


76 Q 




Y0137 


EQU 


137Q 




Y0175 


EQU 


175Q 





FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 
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20 
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20 


FILE 
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20 
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FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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0080 
0083 
008 C 
0093 
OOAO 
00E8 
00 FF 
0080 
OOAO 
00 OB 
OOOD 
OOFO 
OOOF 
007F 
OOFF 

OOFO 
00F1 
OOF? 
00 F3 
00F4 
OOF 5 
00F6 
00F7 



5000 
5 000 
5003 
5006 
5009 
5 00C 
5 OOF 
5012 
5015 
5018 



501B 
501B 
501C 



501F 
5022 



C31B50 
C37F6A 
C31D58 
C3E258 
C35A59 
C3F36A 
C3906A 
C36264 
C32764 



79 
3257FE 



CD1A01 
CA4550 



Y0200 

Y0203 

Y0214 

Y0223 

Y0240 

Y035 

¥0377 

Y080 

YOAO 

YOOB 

YOOD 

YOFO 

YOOF 

Y07F 

YOFF 

F1KEY 
F2KEY 
F3KEY 
F4KEY 
F5KEY 
F6KEY 
F7KEY 
F8KEY 
* 

I 



# 
» 
t 

r 

I 

f 

t 

r 

r ' 

t 



EQU 200(3 

EQU 203Q 

EQU 214e 

EQU 223Q 

EQU 240S 

Eeu 350Q 

EQU 377S 

EQU 200Q 

EQU 240Q 

EQU 013Q 

EQU 01 5 Q 

EQU 3606 

EQU 17Q 

EQU 177Q 

EQU 377Q 

EQU 360Q 

EQU 361Q 

EQU 362Q 

EQU 363Q 

EQU 364Q 

EQU 365a 

EQU 366Q 

EQU 367Q 



= FFH 



= 255 DEC 



START BISY MODUL 20 K 



ORG 


50000Q 


J IIP 


BYOOO 


JMP 


CRINS 


J MP 


BVFRE 


JMP 


BYSRE 


J HP 


BY100 


JMP 


CI104 


JMP 


CR050 


JMP 


BYINT 


JMP 


BY6ET 



;ENTRY BISY MOOUL 
;CHAR. INSERT MODUL 
;FULL RESET BISY INIT. 
;SOFT RESET BISY INIT. 
;GANZW0RTRE6EL 
; INSERT FROM DSPLA 
/INSERT FROM DSPLA 
;INTERPR. CHAR FROM CTU 
;GET A REC FROM INP DEV 



***************** 4^* **************** ************ 

STEUERUN6 BISY MODULE * 

;*****************************************'****** 
******************************************** 



^**** **************** *********************** 



BYOOO EQU $ 

MOV A^C 
STA BYOOC 



;ENTRY BIS2Y MOD. 

;SPEICHERN 

; INPUT FUNKT CODE 



;************************* 

CALL CKFMS ;FORMAT MODE ? 
JZ YOOOB ;N0 
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FILE 
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5025 


3A12FF 


LDA 


KCTSH 




5028 


E6 06 


ANI 


LF1KY+LF2KY ;SHIFT 2+3 KEYS 


502A 


C23450 


JNZ 


YOOOA 


;YES 


5Q2D 


3A57FE 


LDA 


BYOOC 




5030 


B7 


ORA 


A 


;ASCII 


5031 


F23151 


iP 


EXNOF 


;EXIT NO FUNKTION 


5034 


YOOOA EQU 


$ 




5034 


3A57FE 


LDA 


BYOOC 




5037 


47 


MOV 


B,A 


;CONV, 


5038 


218 75 2 


LXl 


H^BYT12 


;CODE 


503B 


CDAD69 


CALL 


BY910 




503E 


78 


MOV 


A,B 




503F 


3257FE 


STA 


BYOOC 




5042 


C23451 


JNZ 


BY999 


;EXIT FEHLERHAFTE F 



5045 



FUNKTION 



•It*********************** 

YOOOB EQU $ 

'**** ********************* ****************** 



5045 


3A67FE 




LDA 


BYFLI 


;BISY MOD. FAG 


5048 


E607 




ANI 


BYMOV+BYINS+BYBEF ;GESETZT? 


504A 


CAAB50 




JZ 


BY001 


;NEIN EXEC FUNKTION 






- ******************************************* 


504D 


3A67FE 


r 


LDA 


BYFLI 




5050 


E601 




ANI 


BYMOV 


•HOVE SET? 


5052 


CA6B50 




JZ 


YOOOD 


;N0 


5055 


41 




MOV 


B,C 




5056 


21DF51 




LXI 


HvBYTOI 




5059 


CD6069 




CALL 


BY900 


;PRUEFEN TAB 


505C 


CAAB50 




JZ 


BY001 


;0K 


505F 


CD1470 




CALL 


ZBELL 


;NEIN 


5062 


21 E854 




LXI 


H,YMS41 




5065 


CDD158 




CALL 


BYMES 




5068 


C33451 




JMP 


BY999 


; ERROR 


5066 




YOOOD 


EQU 


$ 


-**********■************* 


506B 


3A67FE 




LDA 


BYFLI 




506E 


E6 02 




ANI 


BYINS 


;1NSERT SET? 


5070 


CAA050 




JZ 


YOOOH 


;N0 


5073 


41 




MOV 


B,C 




5074 


211752 




LXI 


H,BYT04 


•CHECK TAB CODE'S 


5077 


CD6069 




CALL 


BY900 




507A 


C28950 




JNZ 


YOOOF 


;0K 


507D 


CD1470 




CALL 


ZBELL 


;NEIN 


5080 


211E55 




LXI 


H,YHS42 




5083 


CDD158 




CALL 


BYMES 




5 086 


C33451 




JMP 


BY999 


;ERROR 


5089 




YOOOF 


EQU 


$ 




5089 


212152 




LXI 


H,BYT05 


;TAB END INSERT 


508C 


CD6069 




CALL 


BY900 


;CODES 


508F 


C2A050 




JNZ 


YOOOH 


;N0 


5092 


CD0E60 




CALL 


BY 2 02 


;YES END INSERT 


5095 


3A5 7FE 




LDA 


BYOOC 


;CHAR. 


5098 


FE93 




CPI 


Y0223 


; INSERT 


509A 


CA3451 




JZ 


BY999 


;YES EXIT? 


5 09D 


C3AB50 




JMP 


BY001 


;N0 PERF. FUNKT. 






^* ********************************** ********** 






; XX 


BEFEHLSZEILE 


XX**** BEFEHLSZEILE ** 






^* ******************************** ************ 


50A0 




YOOOH 


EQU 


$ 
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50A0 


3A67FE 


50A3 


E604 


50A5 


CAAB50 


50A8 


C35558 



5 0AB 
50AB 
50AE 
50AF 
5 0B2 
50B5 

50B8 
50BB 
50BD 

50C0 
50C3 
50C6 
50C9 
5 OCA 
50CC 
5 0CD 
5000 
5003 
5003 
5 006 



5 009 
5009 
500C 
500E 
50E1 
50E4 
50E7 
50EA 
50EC 
50EF 
50F2 
5 OF 2 
50 F5 
50F7 
SOFA 
5 0F0 
5100 
5103 
5105 
5108 



51 OB 



3A57FE 

47 

213752 

C06069 

C20950 

3A12FF 

E606 

C20950 

C0606A 

CA0350 

2157FE 

7E 

E67F 

77 

CDB35 5 

C33451 

CD0061 
C33151 



3A12FF 

E604 

CAF250 

213852 

C 06069 

C20B51 

3E20 

3257FE 

C31E51 

3A12FF 

E602 

CA0B51 

215052 

C06Q69 

C20B51 

3E20 

3257FE 

C31E51 



LOA BYFL1 

ANI BYBEF 

JZ BY001 

JKP BY080 



;BEFEHLS2EILE? 
;N0 EXEC FUNKT. 
;YES CHECK OOCOOE 



; PRUEFEN COOE FUER 

;*****1fk* ************** 



*********************** 

* 

ALT CHAR. * 

*********************** 



BY 001 



EQU 

LOA 

HOV 

LXI 

CALL 

JNZ 



$ 

BYOOC 

B,A 

H,BYT07 

BY900 

YOOlO 



;********************** 

LOA KCTSH ; 

ANI LF1KY+LF2KY 
JNZ Y001D ; 

;********************** 

CALL CKSLR ; 



Y001B 



JZ 

LXI 

MOV 

ANI 

MOV 

CALL 

J MP 

Eau 

CALL 
JMP 



YOOIB 

H,BYOOC 

A,M 

f07F 

M,A 

BY005 

BY999 

$ 

BY225 

EXNOF 



INPUT COOE 

CHECK 

TAB ALT CHAR. 

IN STANO.SET? 
NO 
*********************** 

SHIFT 

;FLA6 2+3 SET? 
YES 
*********************** 

SHIFT L-R 
;N0 
iINPUT CHAR. 

; CLEAR 815 
;ANO SAVE 



EXECUTE RETURN LFEEO 
EXIT BISY MOOUL 



****i 



****i 

0010 



****** 

PRUE 
****** 

EQU 
LOA 
ANI 
JZ 
LXI 
CALL 
JNZ 
MVI 
STA 
JMP 
Y001F EQU 
LOA 
ANI 
JZ 
LXI 
CALL 
JNZ 
MVI 
STA 
JMP 
****** 

PRUEF 
****** 

EQU 



*********************************** 

FE GUELTIGE SHIFT KEY»S 
*********************************** 

$ 

;SHIFT 
;KEY #1 

;N0 



;IN 

;N0 



TAB? 



t****^ 



;****! 
^OOIH 



KCTSH 
LF1KY 
Y001F 
H,BYT08 
BY900 
Y001H 
A,40Q 
BYOOC 
BY002 
$ 

KCTSH 
LF2KY 
Y001H 
H,BYT09 
BY 900 
Y001H 
A,40Q ; 

BYOOC 

BY002 ; 

********** *************************** 

EN SHIFT 1+2 COOE 
************************************* 

$ 



; SHI FT 

;KEY #2 

;N0 

;IN 

;TAB? 

;N0 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



FILE 20 
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FILE 20 
FILE 20 
FILE 20 

510B 3A57FE LBA BYOOC ;ASCII FILE 20 

510E E680 ANI Y0200 ;CHARCACTER FILE 20 

5110 C21E51 JNZ BY002 ;N0 FUNKT. CODE FILE 20 

5113 3A12FF LDA KCTSH ; FILE 20 

5116 E606 ANI LFlKt+LF2KY ;SHIFT KEY #1 OR 2 FILE 20 

5118 CA1E51 iZ BY002 ;N0 ALT CHAR. SET FILE 20 

; FILE 20 

; FILE 20 

511B C3A&55 ' JHP BY004 ;YES PERF. ALT CHAR. CODE FILE 20 

FILE 20 

************************************************ FILE 20 

; ENTRY FUNKT. CO&E OR CHAR. FILE 20 

; FILE 20 

;*********************************************** FILE 20 

511E BY002 EQU $ FILE 20 

511E 3A57FE LDA BYOOC ;GET INPUT FUNKT. CHAR. FILE 20 

5121 4F MOV C^A ;IN C-RE6 FILE 20 

5122 CD8769 CALL BY905 ;6ET ROUT.ADRESSE H+L FILE 20 

;**************************************** FILE 20 

5125 CF RST RTJKP ;EXEC ROUTINE FILE 20 

;**************************************** FILE 20 

LDA BYOOC ;BISY ROUT. FILE 20 

CPl OB ;FLA6 FILE 20 

JZ EXNOF ;N0 FUNKT. PERF. CHAR. FILE 20 

JMP BY999 ;6FUNKT. OK 60 TO NEXT FILE 20 

EXNOF EQU $ FILE 20 

J«P WL215 ;RETURN TO MAIN CODE FILE 20 

FILE 20 

; FILE 20 

BY999 EQU $ FILE 20 

;RETURN TO MAIN CODE FILE 20 

;CLEAR CURS. ADV. FLAG FILE 20 

FILE 20 

FILE 20 

WAIT FOR NEXT INPUT FILE 20 

; FILE 20 

;*********************************************** FILE 20 

;*********************************** FILE 20 

; EXIT BISY MOD. NO CHAR. FOUND * FILE 20 

;*********************************** FILE 20 

513C EXBYM EQU $ FILE 20 

513C 3A57FE LDA BYOOC ;GET INPUT CHAR. FILE 20 

513F 4F MOV C^A ; IN C-REG. FILE 20 

5140 AF XRA A ;CLEAR EXIT FILE 20 

5141 3257FE STA BYOOC ;FLAG AND FILE 20 

5144 C9 RET ; RETURN FILE 20 

; FILE 20 

; FILE 20 

5145 EXERR EQU $ FILE 20 
5145 CD1470 CALL ZBELL FILE 20 
5148 C33451 JMP BY999 FILE 20 

;*********************************************** FILE 20 

; FILE 20 

; FILE 20 

;**************************************** FILE 20 

;* INDEXTABELLE APPLIKAT lONSROUTINEN * FILE 20 

* FILE 20 
PROGRAMM * FILE 20 
REDAKTIONEN * FILE 20 

* FILE 20 



5126 


3A57FE 


5129 


FEOO 


5128 


CA3151 


51 2E 


C33451 


5131 




5131 


C3C600 


5134 




5134 


AF 


5135 


3267FF 


5138 


4F 


5139 


C32C01 



EQU 


$ 


XRA 


A 


STA 


CAFL6 


MOV 


C^A 


JMP 


WLOOP 



;* 

;* 



;* 
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5148 



5148 


8888 


514D 


C5D5 


514F 


8989 


5151 


CED5 


5153 


8A8A 


5155 


2006 


5157 


8B8B 


5159 


B8D6 


515B 


8C8C 


515D 


4FD7 


515F 


D5D5 


5161 


F9E2 


5163 


D6D6 


5165 


02E3 


5167 


DODO 


5169 


E7D7 


516B 


8D8D 


516D 


5CE0 


516F 


FDFD 


5171 


5CE1 


5173 


AOAO 


5175 


06DA 


5177 


9191 


5179 


A8DB 


517B 


3C3C 


517D 


31D8 


517F 


3E3E 


5181 


C7D8 


5183 


9393 


5185 


OEEO 


5187 


9595 


5189 


00E1 



WAZ / HRZ 
RUBENS 



* 
* 
* 



•**1tik********it* ******************* ******* 



f 

;* 
;* 



DB 



CODE 



Dy+Bl5 ROUTINE 
DU 2.TABELLE 



* 

f**** ************ ********* *************** 
BYTXO EeU $-3 

DB 210a,2106 ;BLINKER AN 

DW Btr010*Bl5 ;BILDSCHIRKANFAN6 



DB 


2iiQ,2iia 


;BLINKER AN 


DW 


By020+Bl5 


;WEITERSCHREIBSTELLE 


DB 


2i2e,2i2e 


;W0RTSPRUN6 


DW 


BY030+B15 


;LINKS 


DB 


213S,213e 


;W0RTSPRUN6 


DW 


B¥040-^B15 


;RECHTS 


DB 


214Q,214Q 


;LOESCHEN 


OU 


BY050+B15 


;WORT 


DB 


3256,325ft 


;NEXT PAGE 


DW 


BY325+B15 


• 


DB 


3268, 326a 


;PREV. PAGE 


DW 


BY326+B15 


• 


DB 


320Q,320« 


;LOESCHEN 


DW 


BY051+B15 


;ZEICHEN 


DB 


21 5Q, 21 56 


;LOESCHEN 


DW 


BY215+B15 


;ABSATZ 


DB 


3758,3758 


;6ENERIEREN 


DW 


BY270*B15 


;ABSTATZ 


DB 


2408,2408 


;KENNZEICHEN 


DW 


BY110+B15 


;BLOCK 


DB 


2218,2218 


;£INFUEGEN 


DW 


BY120+B15 


; BLOCK 


DB 


0748,0748 


;START 


DW 


BY070+B15 


; BEFEHLSAANWEISUN6 


DB 


0768,0768 


;END 


DW 


BY082+815 


;BEFEHLSANW.PRUEFEN 


DB 


2238,2238 


;EINFUE6EN 


DW 


BY2C2 + B15 


;ZEICHEN 


DB 


2258,2258 


;RETURN 


DW 


BY225+B15 


;LINEFEED 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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518B 
518D 


BCBE 
5CE1 


518F 
5191 


CDCD 
CAE2 


5193 
5195 


9696 
38E1 


5197 
5199 


D3D3 
E3E2 


5 198 
519D 


D4D4 
ECE2 


51 9F 
51A1 


CACA 
C0E2 


51A3 
51A5 


DEDE 
10E1 


51A7 
51 A9 


DFOF 
16E1 


51 A8 
51 AD 


A4A4 
1CE1 


51AF 
51B1 


9898 
ECE4 



51B3 


F7F7 


51B5 


55E8 


5167 


F6F6 


51 B9 


72E8 


51BB 


F5F5 


51BD 


94E8 


51BF 


F4F4 


51C1 


D7E7 


51C3 


F3F3 


51 C5 


BDE7 


51C7 


F2F2 


51C9 


A4E7 


51 CB 


F1F1 


51CD 


89 E7 


51 CF 


FOFO 


51 B1 


6CE7 



DB 

DM 

DB 
DW 

DB 
DW 

DB 
DU 

DB 
DW 

DB 
DW 

DB 

DW 

DB 
DW 

DB 
DW 

DB 
DW 



274G,276a ;ZENTR1ERBEFEHLE 
BY270+B15 ;LINKS KITTE RECHTS 

315Q,315Q ;LOESCHEN ZEILE 
BV315+B15 ;AB BLINKERPOSITION 

2260^2268 ;BEFEHLSZ EILE 
BY226+B15 ;K A S K E N 

3238,3236 ;ROLLEN AUFWAERTS 
BY323*B15 ;IIIT BILLINKER AH TEXT 

324a, 324Q ;ROLLEN ABWAERTS 
Bt324+Bl5 ;MIT BILLINKER AM TEXT 

312Q,312a ;LOESCHEN BILDSCHIRM 
BY312+B15 ;AB BLINKERPOSI TION 

336Q ,336a ; FETT 
BY227+B15 ; 

337Q,337Q ;CURSIV 
BY228+B15 ; 

244Q,244tt ;N0RI<IAL 
BY229+B15 i 

230Q,230ft ;ENTER 
BYRTD+B15 ; 



• **** It* ********* ********* It** ****** ******* 



:* INDEX FUER EIN-/ AUS6ABE 

;* ROUTINEN ROUTINEN 

•* 



* 
* 
* 



;**************************************** 



DB 
DW 

DB 
DW 

OB 
DW 

DB 
DW 

DB 
DW 

DB 
DW 

DB 
DW 

DB 
DW 



367Q,367Q ;KASSETTEN E V D F8 
BY740+B15 ;UEBERLESEN 



3666,3660 ;WORTUffLAUF 
BY750+B15 ; 



F7 



3656,3656 ;ZEICHEN ZAEHLER F6 
BY760+B15 ;AB BLINKERPIOS ITION 

3646,3646 ^DISPLAY ZEILE F5 

BY700+B15 ;DER ZOLEZTTZT SEL.KASS. 



3636,3636 ;DRUCKEN 
BY690-^B15 ;BILDSCHIRM 



F4 



3626,3626 ;SUCHEN KASSETTE F3 

BY680+B15 ;WEITERSCHREIBST. 

3616,3616 ;P0SITIONIEREN 1 F2 

BY670+B15 ; STORY VORWAERTS 

3606,3606 ;P0SITIONIEREN 1 F2 

BY66D+B15 ;STORY RUECKWAERTS 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
20 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



FILE 20 

8080 KACRO ASSEMBLER^ VER 2.4 ERRORS = PAGE 25 FILE 20 

FILE 20 

FILE 20 

FILE 20 

; FILE 20 

m 23SQ,235Q ;SCHREIBEN RECKTE FILE 20 

BW BY640+B15 ;KASSETTE -RECORD- FILE 20 

FILE 20 

DB 2346^234Q ;LESEN LINKE FILE 20 

DW BY600+Bt5 ;KASSETTE -READ- FILE 20 

FILE 20 

FILE 20 

;**«^************************************«*** FILE 20 

E N D E TABELLE FILE 20 

;*********•********************************* FILE 20 

DB 0Q,377e ;ALLE AN&EREN COOES FILE 20 

DW EXBYM+B15 ;EXIT BISY HODUL FILE 20 

FILE 20 



51D3 


9D9D 




5105 


55E7 




51D7 


9C9C 


t 


51D9 


11E7 




51 DB 


OOFF 




51DD 


3CD1 





51 DF 




51DF 


AOAC 


51 El 


9191 


51 E3 


ODOD 


51E5 


888B 


51E7 


95 95 


51E9 


C1C4 


51 EB 


D3D6 


51ED 


E8E8 


51 EF 


FFFF 



51FB 




51FB 


8D8D 


51 FD 


COCD 


51FF 


3C3C 


52 01 


9696 


5203 


AOAO 


52 05 


9191 


5207 


FDFD 


52 09 


888B 


520B 


C1C2 


5200 


0306 


520F 


BCBE 


5211 


E8E8 


5213 


CCCC 


5215 


FFFF 



r 



'******************************************* FILE 20 

FILE 20 

; FILE 20 

;*************************************** FILE 20 

; TAB DEF. BLOCK OK CODES FILE 20 

;**************************************** FILE 20 

BYT01 EQU $ FILE 20 

DB 240Q^240e ;MOVBLOCK FILE 20 

OB 221a, 221ft ;OEF. BLOCK FILE 20 

DB 015Q,015G FILE 20 

OB 210Q,213e ;HOHE SC. E TEXT WORT R L FILE 20 

DB 225«,225Q ;RETURN FILE 20 

OB 301ft, 304a ;CURSOR U,0,R,L FILE 20 

OB 3238,3260 ;ROLL UPO PAGE PREV NEXT FILE 20 

OB 350ft«350ft ;CURS0R HOKE MEN. FILE 20 

DB 377Q,377« ;END TAB FILE 20 

; FILE 20 

; FILE 20 

;*************************************** FILE 20 

; TAB END BEFEHLSANW. FILE 20 

;*************************************** FILE 20 

51 F1 BYT02 EQU f FILE 20 

51 F1 2020 OB 040ft,040ft ;BLANK FILE 20 

51 F3 ODOD DB 0156,0150 FILE 20 

51F5 3E3E DB 0760,0766 ;END BEFEHLSANW. FILE 20 

51 F7 9595 DB 2258,2256 ;RETURN LF FILE 20 

51 F9 FFFF DB 3776,3776 ;TAB END FILE 20 

-it************************** ************* FILE 20 

; TAB BEFEHLSANW. ERROR CODES FILE 20 

^*************************************** FILE 20 

BYT03 E6U $ FILE 20 

DB 2156,2156 ;LO-ABSATZ/ FILE 20 

OB 3156,3150 ;L0-2EILE FILE 20 

DB 0746,0740 ;BEFEHLSANF. FILE 20 

DB 2266,2266 FILE 20 

DB 2406,2406 ;OEF BLOCK FILE 20 

DB 2216,2216 ;INS. BLOCK FILE 20 

OB 3756,3756 ;ABSATZ FILE 20 

DB 2106,2136 FILE 20 

DB 3016,3026 FILE 20 

DB 3230,3266 FILE 20 

DB 2746,2766 FILE 20 

OB 3506,3506 FILE 20 

DB 3146,3146 ;INSERT LINE FILE 20 

DB 3770,3776 ;TAB END FILE 20 

; TAB INSERT ERROR CODE FILE 20 
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5217 




BYT04 


EQU 


$ 




5217 


8D8D 




DB 


215Q,215Q 


;LOE WORT ,ABSATZ 


5219 


CDCD 




DB 


315Q,315Q 


;L0 ZEILE 


521B 


AOAO 




DB 


240Q, 240ft 


;DEF. BLOCK 


521D 


9191 




D6 


221Q, 221ft 


;INS. BLOCK 


521F 


FFFF 




DB 


377Q,377Q 


;TAB EN 








TAB 


INSERT 


END 


5221 




BYT05 


EQU 


$ 




5221 


888B 




DB 


210Q,213Q 


;CURSOR H,E,W/L/R 


5223 


9595 




DB 


225Q,225a 


;RETURN 


5225 


C1C2 




DB 


30la^302Q 


;CURSOR U,D 


5227 


D3D6 




DB 


3239,3266 


;ROLL U/D PREV,NEXT 


5229 


E8E8 




DB 


350Q,350Q 


;CURSOR HOttE 


522B 


9393 




DB 


223S,223Q 


;INSERT CHAR. 


522D 


ODOD 




DB 


015Q,015Q 




522F 


FFFF 




DB 


377e,377Q 


;END TAB 






• TAB RET/LF IN BLOCKWOVE 


5231 




BTT06 


EQU 


$ 




5231 


7D7D 




DB 


175Q,175Q 


;ABSATZENDE 


5233 


3C3E 




DB 


074Q,076Q 


;ZENTR-L/M/R 


5235 


FFFF 




DB 


377Q,377Q 


;END TAB 






; TAE 


1- ALT 


CHAR. IN STAND SET 


5237 




BYT07 


EQU 


$ 




5237 


FCFC 




DB 


374Q,374Q 


;SUB.FORKT 


5239 


FFFF 




DB 


3778, 377Q 










ERROR 


CODES SHIFT 1 


523B 




BYT08 


EQU 


$ 




5238 


2020 




DB 


040Q,040Q 




523D 


2324 




DB 


043Q,044Q 




523F 


7B7D 




DB 


173Q,175e 




5241 


3C3E 




DB 


074Q,076Q 




5243 


6161 




DB 


l4lG,14le 




5245 


7373 




DB 


163Q,163« 




5247 


FBFD 




DB 


375Q,375Q 




5249 


9393 




DB 


223Q,223Q 




524B 


AOAO 




DB 


2406,2400 




5240 


9191 




DB 


221Q,221Q 




524F 


CCCC 




DB 


314Q,314SI 




5251 


9696 




DB 


226Q,226Q 




5253 


OE&F 




DB 


336Q,337Q 




5255 


A4A4 




DB 


244Q,244Q 




5257 


9595 




DB 


225Q,225Q 




5 259 


5F5F 




DB 


137Q,137Q 




525B 


FFFF 




DB 


377Q,377Q 










ERROR 


CODES SHIFT 2 



525D 



BYT09 EQU $ 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
20 
20 
20 
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20 
20 
20 
20 
20 
20 
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525D 


2020 


525F 


5 05 


5261 


5D5E 


5263 


ODOD 


5265 


3039 


5267 


3C3C 


5269 


3E3E 


526B 


5F5F 


526D 


FFFF 



526F 
526F 
5271 
5273 
5275 
5277 
5279 
527B 



52 7D 
527D 
527F 
52S1 
5283 
5285 



2420 
5E20 
5F20 
2322 
2A5F 
6023 
FFFF 



3C3C 
303D 
3E3E 
7D3C 
FFFF 



DB 


040Q^040Q 


OB 


120Q,120Q 


m 


1358,1366 


DB 


0158,0150 


DB 


060Q,071Q 


&B 


074Q,074Q 


DB 


076Q,076Q 


m 


137Q,137Q 


&B 


377Q,377Q 



BY 



************************************ 
KONVERT. TABELLE DRUCKAUS6ABE 
HODIFIZIEREN 
DB / IN DB/OUT 
************************************ 



T10 



EQU 

DB 

DB 

DB 

DB 

DB 

DB 

DB 



044Q,040Q 
136Q,040Q 
137Q,040e 
043Q,042Q 
052Q,137Q 
1406,043Q 
377Q,377Q 



BY 



******************************** 
KONVERT. TAB DRUCKAUS6ABE 
ZENTRIETRBEFEHLE 

******************************** 



Til 



EQU 

DB 

DB 

DB 

DB 

DB 



074Q,074Q 
075Q,075Q 
0760,0766 
1750,0746 
3770,3770 



; TAB FORMAT MODE 

; CONV. 6UELTIGE DISPL. FUNKTIONEN 



52 87 


BYT12 EQU 


$ 




5287 


8181 


DB 


2010,2010 


;DISPL. FUNKTION 


5289 


8585 


DB 


2050,2056 


;BLOCK MODE 


52 8B 


86 86 


DB 


2060,2060 


;REMOTE 


528D 


8484 


DB 


2046,2046 


;AUTO LFEED 


528F 


9898 


DB 


2300,2306 


; ENTER 


5291 


DODO 


DB 


3206,3206 


;DEL. CHARACTER 


52 93 


del 


DB 


3016,3010 


;CURSOR UP 


5295 


8888 


DB 


2106,2106 


;CURSOR HOME 


5297 


C2C2 


DB 


3020,3026 


; CURSOR DOWN 


5299 


C3C3 


DB 


3038,3036 


;CURSOR RIGHT 


5 2 98 


C4C4 


DB 


3040,3040 


^CURSOR LEFT 


529D 


8A8A 


DB 


2126,2126 


;WORT LEFT 


529F 


8B09 


DB 


2130,0110 


;WORT RIGHT -> FORM. TAB 


52A1 


FD09 


DB 


3750,0116 


;ABSATZ -> FORW. TAB 


52A3 


FFFF 


DB 


3776,3776 


;TAB END 
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FILE 
FILE 
FILE 
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FILE 20 
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FILE 20 

FILE 20 

FILE 20 

; FILE 20 

; FILE 20 

FILE 20 



# 



52A5 YKS04 EQU $ FILE 20 

52A5 8250524F DB INVRS, •PROGRARM NRZ WAZ %200Q FILE 20 

52A9 47524141) FILE 20 

52AD 4D20204E FILE 20 

52B1 525A2057 FILE 20 

52B5 415A2080 FILE 20 

52B9 20444154 DB • DATENUEBERTRA6UNG HP • FILE 20 

52BD 454E5545 FILE 20 

52C1 42455254 FILE 20 

52C5 52414755 FILE 20 

52C9 4E472020 FILE 20 

52CD 48502020 FILE 20 

52D1 82424953 DB INVRS,*BISY 103407 •,200Q,E0P FILE 20 

52D5 59202031 FILE 20 

52&9 30333430 FILE 20 

520D 372080CE FILE 20 

; FILE 20 

52 El YMS05 EQU $ FILE 20 

52E1 8242414E DB INVRS,»BAND WIRD AUF • FILE 20 

52E5 44205749 FILE 20 

52E9 52442041 FILE 20 

52ED 554620 FILE 20 

52F0 57454954 DB •WEITERSCHREIBSTELLE * FILE 20 

52F4 45525343 FILE 20 

52 F8 48524549 FILE 20 

52FC 42535445 FILE 20 

5300 4C4C4520 FILE 20 

5304 47455345 DB •6ESETZT ',2008, EOP FILE 20 

5308 545A5420 FILE 20 

530C 80CE FILE 20 

FILE 20 

530E YP1S06 EQU $ FILE 20 

530E 82535 543 DB INVRS, "SUCHEN STORY ■ FILE 20 

5312 48454E20 FILE 20 

5316 53544F52 FILE 20 

531A 59202020 FILE 20 

531E 52554543 OB •RUECKWAERTS*,200a,E0P FILE 20 

5322 4B574145 FILE 20 

5326 52545380 FILE 20 

532A CE FILE 20 

FILE 20 

532B YHS07 EQU $ FILE 20 

532B 82535543 DB INVRS, • SUCHEN STORY • FILE 20 

532F 48454E20 FILE 20 

5333 53544F52 FILE 20 

5337 59202020 FILE 20 

533B 564F5257 DB • V0RtfAERTS%200Q,E0P FILE 20 

533F 41455254 FILE 20 

5343 5380CE FILE 20 

FILE 20 



r 



5346 YWS08 EQU $ FILE 20 

5346 82534 943 DB INVRS, "SICHERN BILDSCHI RMINHALT' FILE 20 

534A 4845524E FILE 20 

534E 20202042 FILE 20 

5352 494C4453 FILE 20 

5356 43484952 FILE 20 

535A 4D494E48 FILE 20 
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535E 


414C54 




5361 


204D4954 




5365 


20225245 




5369 


434F5244 




536D 


22204655 




5371 


4E4B5449 




5375 


4F4E 




5377 


80CE 




5379 




YMS09 


5379 


825A4549 




53 7D 


4348454E 




5381 


414E5A41 




5385 


484 C2 041 




5389 


42 




53 8A 


20424C49 




538E 


4E484552 




5392 


504F5349 




5396 


54494F4E 




53 9A 


2 02 03D2 




539E 


2000 




53A0 




YWS10 


53A0 


20202020 




53A4 


202000 


i 


53 A7 




m 

YHS12 


53A7 


8242494C 




53AB 


44534348 




53AF 


49524D53 




53B3 


50454943 




53B7 


48455220 




53BB 


20 




53 BC 


42454C45 




53 CO 


47548 OCE 




53C4 




YHS20 


53 C4 


8A3C4846 




5308 


3E80FF 




53CB 




YKS21 


53CB 


8A3C4B56 




53 CF 


3E80FF 




53D2 




YMS22 


5302 


8A3C4E42 




53D6 


3E80FF 




53D9 




YKS23 


53D9 


8A3C4D41 




53 DD 


FF 




53DE 




YMS24 


53 OE 


8A3CFF 




53E1 




YHS25 


53E1 


3E80FF 


• 


53E4 




YKS31 


53 E4 


56494445 





DB • MIT "RECORD" FUNKTION* 



DB 200Q,E0P 

Eeu $ 

DB IHVRS^'ZEICHENANZAHL AB" 



DB • BLINKERPOSITION 



•.0 



EQU $ 
DB • 



%0 



EQU $ 

DB INVRS,»BILDSCHIRWSPEICHER 



DB •BELEGT«,200Q,EOP 

EQU $ 

DB EHALF,BEFIN^HX,FX^BEF0F^NR«AL,377Q 



E6U $ 

DB EHALF,BEFIN^KX,VX^BEF0F,NRMAL^377Q 



EQU $ 

DB EHALF,BEFIN,NX,BX,BEF0F^MRMAL^377Q 



EQU $ 

DB EHALF,8EFIN^WX,AX,377Q 



EQU $ 

DB EHALF,BEFIN,377Q 

EQU $ 

DB BEF0F,NRKAL,377Q 



EQU $ 

DB •VIDEOSCHREIBKASCHINE 1ST NICHT AUF» 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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53 E8 
53EC 
53F0 
53F4 
53F8 
53FC 
5400 
5404 

54 06 
540A 
540E 
5412 
5416 
541A 
541E 
5422 

5425 
5425 
54 29 
542D 
5431 
5435 
5438 
543C 
5440 
5444 
5447 
544B 
544F 



5452 
5452 
5456 
545A 
545E 
5462 

5465 
5465 
5469 
54 6D 
5471 

5473 
5473 
5477 
547B 
547F 

5481 
5481 
5485 
5 489 
548D 
5491 

5493 
5493 



4F534348 

52454942 

4&415343 

48494E45 

20495 354 

204E4943 

48542041 

5546 

20444154 

454E5 545 

42455254 

52414 755 

4E47204 7 

45 534348 

414C5445 

5420CE 



82204441 

54454E55 

45424552 

54524147 

554E47 

205 64F4D 

2042494C 

44534 348 

49524D 

20424545 

4E444554 

208 OCE 



824 44154 
454E5 545 
42455254 
52414755 
4E4700 



83202020 
53544F52 
59202 020 
8000 



83202020 
414C4C45 
53202020 
8000 



20564F4D 
204C4 94E 
4B454E20 
42414 844 

2000 



20564F4D 



DB 



BATENUEBERTRAGUNG GESCHALTET '^EOP 



YHS32 



EQU 

m 



$ 
INVRS,* 



DATENUEBERTRAGUN6 



DB 



DB 



VOM BILDSCHIR«» 



BEENDET •V200Q^E0P 



YWS33 



EQU 
DB 



INVRS,»DATEHUEBERTRA6UNG»,0 



YMS34 



EQU 
DB 



YMS35 



EQU 
DB 



$ 

203Q," 



$ 

203Q,' 



STORY '^2000,0 



ALLES 



,200Q,0 



YMS36 



EQU 
DB 



$ 

• 



VOM LINKEN BAND ',0 



YMS37 



EQU 

DB 



VOM RECHTEN BAND ',0 
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5A97 
549B 
549F 
54 A3 

54A6 
54A6 
54AA 
54AE 
54B2 
54B6 

54BA 
54BA 
54BE 
54C2 
54C6 
54 CA 
54CE 
54D0 
54 D4 
54D8 
54DC 
54DF 
54E3 
54E7 

54 E8 
54E8 
54EC 
54F0 
54F4 
54 F8 

54 FC 
54FE 
5502 
5506 
550A 
550E 
5510 
5514 
5518 
551C 

551E 
551E 

55 22 
5526 
552A 
552E 
5532 
5534 
5538 
553C 
5540 
5544 
5546 
5548 
5548 



20524543 
4854454E 
2042414E 
442000 



83202042 
20452045 
2 04 E2 044 
20452054 
202083CE 



46454 84C 

45 5 24841 

46544 520 

46554E4B 

54494F4E 

2020 

824D4 143 

5 24F2F42 

45464548 

4C5320 

45494E47 

41424580 

CE 



46454 84C 

45524841 

46544520 

46554 E4B 

54494F4E 

2020 

82424C4F 

434B2 044 

4546494E 

4954494 F 

4E2F 

55455145 

52545241 

47554E47 

80CE 



4645484C 
45524841 
46544520 
46554E4B 
54494 F4E 
2020 
82454 94E 
46554547 
454E2 05A 
45494 348 
454E 
80CE 

CE 



YMS38 



EQU 
&B 



203Q,» B E E N B E T •,2036,E0P 



YMS40 



EQU 
D8 



$ 

•FEHLERHAFTE FUNKTION » 



DB 



YKS41 



EQU 
D6 



YMS42 



EQU 
DB 



DB 



YMS99 



DB 

EQU 

DB 



INVRS,*MACRO/BEFEHLS * 



DB •EIN6ABE%200Q,E0P 



•FEHLERHAFTE FUNKTION » 



DB INVRS^'BLOCK DEFINITION/* 



DB •UEQERTRAGUNG»,200Q,E0P 



•FEHLERHAFTE FUNKTION • 



INVRS^'EINFUEGEN ZEICHEN* 



200Q,E0P 

$ 

EOP 
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; SET 


CHAR. 


ALT. SET 


ON 


5549 




BY 003 


E6U 


$ 




5549 


3A67FE 




LBA 


BYFL1 




554C 


E6D2 




ANI 


BYINS 




554E 


CA5f55 




JZ 


Y003B 




55 51 


CDF600 




CALL 


RADR4 




5554 


C25F55 




JNZ 


Y003B 




5557 


1A 




L&AX 


D 




5558 


E6F0 




ANI 


YOFO 




555A 


FEAO 




CPI 


YOAO 




555C 


CA9255 




JZ 


Y003H 




555F 




V003B 


EQU 


$ 




555F 


OEOO 




MVI 


C,B 


;YES SET# 


5561 


CD0B01 




CALL 


SHSTI 


;0N 


5564 


3A72FF 


# 


LDA 


CRSET 


;LOA0 CHAR. SET 


5567 




Y003D 


EQU 


$ 




5567 


47 




KOV 


B,A 




5568 


3E0B 




PfVI 


A,SCHAR 




556A 


CD 087 




CALL 


ZBCTL 




556D 


78 




MOV 


A,B 




556E 


060 F 




MVI 


B,17Q 


;ADD. ALT CODE 


5570 


CD0E01 




CALL 


DSPC1 


;T0 DISPLAY 


5573 


3A57FE 




LDA 


BYOOC 


;RECALL INRET CHAR 


5576 


3289FF 




STA 


DCHAR 


;SAVE CHAR. 


5579 


CD0201 




CALL 


DSPLA 


;AND DISPL. IT 


557C 


CDE400 




CALL 


CRADV 




557F 


0E40 




MVI 


C,ASI6N 


;SET TO 


5581 


CD0B01 




CALL 


SHSTI 


;NOR«. CHAR. SET 


5584 


AF 




XRA 


A 




5585 


47 




MOV 


B^A 




5586 


3E0B 




MVI 


A^SCHAR 


;SWITCH 


5588 


CD0870 




CALL 


ZBCTL 


;CHAR. SET 


5 5 SB 


78 




MOV 


A,B 


;AND 


55 8C 


06 OF 




MVI 


B,17Q 


;ADD IT TO 


558E 


CDOE01 




CALL 


OSPCI 


; DISPLAY 


5591 


C9 




RET 






5592 




Y003H 


EQU 


$ 




55 92 


3A57FE 




LDA 


BYOOC 




5595 


3289FF 




STA 


DCHAR 




5598 


CD0201 




CALL 


DSPLA 




559B 


C0E400 




CALL 


CRADV 




559E 


3EA0 


i 


MVI 


A, YOAO 




55A0 


060F 




MVI 


B,17Q 




55A2 


C0OE01 




CALL 


DSPC1 




55A5 


3E8 


r 


MVI 


A,Y080 




55A7 


06 OF 




MVI 


8,17Q 




55A9 


CD0E01 




CALL 


DSPC1 




55AC 


C9 


r 


RET 






55A0 




BY004 


EQU 


$ 




55A0 


CD495 5 




CALL 


BY003 




5580 


C33451 




JMP 


BY999 
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55B3 


BY005 EQU 


$ 


55B3 


3E04 


KVI 


A^LFlKt 


55B5 


2112FF 


LXI 


H^KCTSH 


55B8 


B6 


ORA 


M 


55B9 


77 


KOV 


M,A 


55BA 


CD4955 


CALL 


81f003 


55BD 


3EF9 


HVI 


A,377Q-LF1KV-LF2KY 


55BF 


2112FF 


LXI 


H^KCTSH 


55C2 


A 6 


ANA 


K 


55 C3 


77 


MOV 


K^A 


55 C4 


C9 


RET 





************************************** 



55C5 




BY010 


EQU 


$ 


;KOVE CURSOR H 


55C5 


3E00 




«VI 


A^O 


;«OVE ZERO TO 


55C7 


32C0FF 




STA 


CRROW 


;CURRENT ROW 


55CA 


CDC900 




CALL 


CRRET 


;CURSOR RETURN 


55CD 


C9 




RET 




;EXIT 






i 

-************************************** 






CURSOR 


AUF WEITERSCHREIBSTELLE 


55CE 




BY020 


Eau 


$ 


;CU 


55CE 




Y020D 


Eau 


$ 




55CE 


CD6400 




CALL 


CRPHD 




55D1 


CD3656 




CALL 


Y035D 




55D4 


CD0E56 




CALL 


BY025 




5507 


26FF 


r 


MVI 


H,BASEH 




55D9 


CDC 000 




CALL 


CURPL 




55DC 


CCF600 




CALL 


RADR4 




55DF 


lA 




LDAX 


D 


;GET CHAR. 


55 EO 


E6F0 




ANI 


YOFO 




55 E2 


FEAO 




CPI 


YOAO 


;ALT. CHAR. 


55 E4 


C20856 




JNZ 


Y020H 


;N0 


55 E7 


CD9100 




CALL 


NTCHR 


;YES GET NEXT CHAR 


55 EA 


C 2 085 6 




JNZ 


Y02 0H 


;EOL LINK 


55 ED 


47 




MOV 


B,A 




55 EE 


213152 




LXI 


H^BYT06 


; CHECK TAB FOR 


55F1 


CD6 069 




CALL 


BY900 


;ABSATZ OR ZENTR. 


55F4 


C20856 




JNZ 


Y020H 




55F7 


CDC900 




CALL 


CRRET 


;RETURN 


55 FA 


CD8B00 




CALL 


LFEED 


;LINEFEED 


55 FD 


3AF3FF 




LDA 


MFL62 


;AUTO t 


5600 


E604 




AN£ 


ATOLF 




5602 


C48B00 




CNZ 


LFEED 


;YES 


5605 


C30D56 




JMP 


Y020Z 




5608 




Y020H 


EQU 


$ 




5608 


26FF 




MVI 


H,8ASEH 




560A 


CDC300 




CALL 


CURPR 


;CURSOR RIGHT 


560D 




Y020Z 


EQU 


$ 





HOME ON 



56 OD 



C9 



RET 



;EXIT 





FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 
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FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 


CREEN 


FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 




FILE 20 
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FILE 20 
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FILE 20 
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; CURSOR PSITION. RECHTS VOM WORT 



560E 




BY 02 5 


EQU 


$ 


560E 




Y025& 


EQU 


$ 


560E 


26FF 




MVI 


K^BASEH 


5610 


CDC300 




CALL 


CURPR 


5613 


CDB400 




CALL 


RADDR 


5616 


C21F56 




JNZ 


Y025X 


5619 


1A 




LDAX 


E> 


561A 


FE20 




CPI 


ABLNK 


561C 


C20E56 




JNZ 


Y025D 


561F 




Y025X 


EQU 


$ 


561F 


C9 




RET 





;CURSOR RIGHT 

;GET CBAR. ADR 

;EXIT CHAR. NOT FOUND 

;6ET. CHAR. 

;BLANK? 

;N0 = LOOP 

; EXIT 






5620 




BY030 


EQU 


$ 


;WORTSPRUNG L 


5620 


CD736A 




CALL 


CKSH2 




5623 


CA2C56 




JZ 


Y030D 




5626 


CD 725 6 




CALL 


BY038 




56 29 


C32F56 




JKP 


Y030N 




562C 




Y030D 


EQU 


$ 




562C 


CD3056 




CALL 


BY035 


;SPRIN6EN 


562F 




Y030N 


EQU 


$ 




562F 


C9 




RET 




;EXIT 






;*************************«****«******* 






; W0RTSPRUN6 LINKS 








;************************************** 


5630 




BY 03 5 


EQU 


$ 




5630 


3A12FF 




LDA 


KCTSH 


;CLEAR 


5633 


E619 




ANI 


LMFKY+RHFKY+LFFKY 


5635 


C8 




RZ 







5636 




Y035D 


EQU 


$ 




5636 


26 FF 




MVI 


H,BASEH 




5638 


CDCOOO 




CALL 


CURPL 


;CURSOR LEFT 


5638 


CA6356 




i\ 


Y035Z 




563E 




Y035E 


EQU 


$ 




563E 


CDB400 




CALL 


RADDR 


;GET, CHAR. ADR. 


5641 


C23656 




JNZ 


Y035D 


;L0OP 


5644 


1A 




LDAX 


D 


;GET. CHAR. 


5645 


FE20 




CPI 


ABLNK 




5647 


CA3656 




JZ 


Y035D 


;YES LOOP 


564A 




Y0356 


EQU 


$ 




564A 


26FF 




MVI 


H^BASEH 




564C 


CDCOOO 




CALL 


CURPL 


;CURSOR LEFT 


564F 


CA6356 




JZ 


Y035Z 




5652 


CDB400 




CALL 


RADDR 


;GET CHAR. ADRR 


5655 


C25E56 




JNZ 


Y035X 


;EXIT 


5658 


1A 




LDAX 


D 


;LOAD CHAR. 


5659 


FE20 




CPI 


ABLNK 




56 5B 


C24A56 




JNZ 


Y035G 


;N0 LOOP 


565E 




Y035X 


EQU 


$ 




565E 


26 FF 




MVI 


H^BASEH 




5660 


CDC300 




CALL 


CURPR 


;CURSOR RIGHT 


5663 




Y035Z 


EQU 


$ 





LINKS 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 


FILE 


20 


FILE 


20 
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20 
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20 
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20 


FILE 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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5663 



C9 



RET 



5664 




BY036 


EQU 


$ 




5664 


CDC900 




CALL 


CRRET 




5667 


CDEDOD 




CALL 


CURPD 




566A 


C9 




RET 






56 6B 




BY037 


EQU 


$ 




566B 


CDC900 




CALL 


CRRET 




566E 


CDFOOO 




CALL 


CURPU 




5671 


C9 




RET 










; WORT LINKS = LETZTER BUCHST.WORT 


5672 




BY 03 8 


EQU 


$ 




5672 




Y038D 


EQU 


$ 




5672 


26FF 




MVI 


H,BASEH 




5674 


CDCOOO 




CALL 


CURPL 


;CURSOR LEFT 


5677 


CAB756 




JZ 


Y038Z 




567A 


CDB400 




CALL 


RADDR 




567D 


C28956 




JNZ 


YC38E 




5680 


1A 




LDAX 


D 




5681 


FE20 




CPI 


ABLNK 




5683 


CA8956 




JZ 


Y038E 


;YES 


5686 


C3A056 




JMP 


Y038H 


;N0 


5689 




Y038E 


EQU 


$ 




5689 


26FF 




MVI 


H^BASEH 




568B 


CDCOOO 




CALL 


CURPL 




568E 


CAB756 




JZ 


Y038Z 




5691 


CDB4D0 




CALL 


RADDR 




5694 


C28956 




JNZ 


Y038E 




5697 


1A 




LDAX 


D 




5698 


FE20 




CPI 


ABLNK 




569A 


CA8956 




JZ 


Y038E 




569D 


C3B756 




JMP 


Y038Z 




56A0 




Y038H 


EQU 


$ 




56 AO 


26 FF 




MVI 


H^BASEH 




56A2 


CDCOOO 




CALL 


CURPL 




56A5 


CAB756 




JZ 


Y038Z 




56A8 


CDB400 




CALL 


RADDR 




56 AB 


C2A056 




JNZ 


Y038H 




56AE 


1A 




LDAX 


D 




56AF 


FE20 




CPI 


ABLNK 




56B1 


CA8956 




JZ 


Y038E 




56B4 


C3AD56 




JMP 


Y038H 




56B7 




Y038Z 


EQU 


$ 




56B7 


C9 




RET 







I*********************************:***** 



56B8 




BY040 


EQU 


$ 


;WORTSPRU 


56B8 


CD736A 




CALL 


CKSH2 




56BB 


CAC456 




JZ 


Y040D 




56BE 


CD0357 




CALL 


BY046 




56C1 


C3C756 




JMP 


Y04 0N 




56C4 




Y040D 


EQU 


$ 




56 C4 


CDC856 




CALL 


BY 045 


;SPRINGEN 


56C7 




Y040N 


EQU 


$ 




56C7 


C9 




RET 




;EX1T 
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FILE 20 

FILE 20 

FILE 20 

•it************************************* FILE 20 

; W0RTSPRUN6 RECKTS FILE 20 

•,**it*******it***ti:*****ifk*****itmtifk****** FILE 20 

FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



56 C8 




BY 04 5 


E6U 


$ 




56C8 


3A12FF 




LDA 


KCTSH 




56CB 


E619 




ANI 


LHFKY+RHFKY+LFFKY 


56CD 


C8 




RZ 






56CE 


C3D956 




JMP 


Y045E 


# 


56 [>1 




Y045& 


EQU 


$ 




56D1 


26FF 




MVI 


H^BASEH 




56D3 


C0C3O0 




CALL 


CURPR 


;CURSOR RIGHT 


56D6 


CAFF56 




JZ 


Y045X 




56 D9 




Y045E 


EQU 


$ 




56D9 


CDB400 




CALL 


RADDR 




56DC 


C2D156 




JNZ 


Y045D 


;LOOP 


56DF 


1A 




LDAX 


D 


;GET CHAR. 


56E0 


FE20 




CPI 


ABLNK 


; BLANK ? 


56E2 


C2D156 




JNZ 


Y045D 


;N0 CONT. LOOP 


56E5 


C3F056 




JMP 


Y045K 




56E8 




Y0456 


EQU 


$ 




56 E8 


26FF 




n\ii 


H^BASEH 




56EA 


CDC300 




CALL 


CURPR 


;CURSOR RIGHT 


56ED 


CAFF56 




JZ 


Y045X 




56F0 




Y045K 


EQU 


$ 




56F0 


CDB400 




CALL 


RADDR 


;GET CHAR. ADR 


56 F3 


C2E856 




JNZ 


Y045G 


;N0 LOOP 


56F6 


1A 




LDAX 


D 


;6ET. CHAR. 


56F7 


FE20 




CPI 


ABLNK 


; BLANK? 


56 F9 


CAE856 




JZ 


Y045G 


;YES CON. LOOP 


56FC 


C30257 




JWP 


Y045Z 




56FF 




V045X 


EQU 


$ 




56FF 


CD3656 




CALL 


Y035D 




5702 




Y045Z 


EQU 


$ 




5702 


C9 


f 


RET 










; WORT RECHTS = LETZTER BUCHST.WORT 


5703 




BY 046 


EQU 


$ 




5703 




Y046D 


EQU 


$ 




57 03 


26FF 




MVI 


H,BASEH 




5705 


CDC300 




CALL 


CURPR 




5708 


CA4E57 




JZ 


Y046Z 




570B 


CDB400 




CALL 


RADDR 




57QE 


C21A57 




JNZ 


Y046E 




5711 


1A 




LDAX 


D 




5712 


FE20 




CPI 


ABLNK 




5714 


CA1A57 




JZ 


Y046E 




5717 


C32E57 




JMP 


Y046H 




571A 




Y046E 


EQU 


$ 




571A 


26FF 




MVI 


H^BASEH 




57 1C 


CDC300 




CALL 


CURPR 




571F 


CA4B57 




JZ 


Y046Y 




5722 


CDB4aO 




CALL 


RADDR 




57 25 


C21A57 




JNZ 


Ya46E 




57 28 


1A 




LDAX 


D 




5729 


FE20 




CPI 


ABLNK 




572B 


CA1A57 




JZ 


Y046E 




572E 




Y046H 


ESU 


$ 




572E 


26FF 




MVI 


H,BASEH 
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5730 


CDC300 




CALL 


CURPR 


5733 


CA4B57 




JZ 


Y046Y 


5736 


CDB400 




CALL 


RADDR 


5739 


C22e57 




JNZ 


Y046H 


573C 


1A 




LDAX 


D 


573D 


FE20 




CPI 


ABLNK 


573F 


CA4557 




JZ 


Y046X 


5742 


C32E57 




JMP 


Y046H 


5745 




Y046X 


EQU 


$ 


5745 


CDCOOO 




CALL 


CURPL 


5748 


C34E57 




J«P 


Y046Z 


574B 




Y046Y 


EQU 


$ 


574B 


CD3656 




CALL 


Y035D 


574E 




Y046Z 


EQU 


$ 


574E 


C9 




RET 





ERRORS = PAGE 37 



574F 




BY 


574F 


C06D6A 




5752 


CO 




5753 


C&F600 




5756 


C21470 





5759 


3E07 


575B 


3289FF 


575E 


C00201 


5761 


CDF600 


5764 


1A 


5765 


B7 


5766 


F29857 


5769 


FE80 


576B 


CA9557 


576E 


FE8A 


5770 


C27657 


5773 


3E80 


5775 


12 


5776 




5776 


D5 


5777 


26FF 


5779 


CDCOOO 


577C 


CDF600 


577F 


D5 


5780 


26FF 


5782 


CDC300 


5785 


D1 


5786 


1A 


5787 


E6F0 


5789 


FEAO 


578B 


D1 


578C 


C29857 


578F 


3E80 


5791 


12 


5792 


CDF600 


5795 




5795 


CD9100 



************************************** 

LOESCHEN WORT 
************************************** 

050 EQU $ 

CALL CKSLR ;SHIFT L-R 

RNZ ;YES EXIT 

CALL RADR4 ;6ET. CHAR. ADRESS 

JNZ ZBELL ;ERROR 

PRUEFEN SHIFT 2+3 DELETE 

KVI A^A 

STA DCHAR 

CALL DSPLA 

CALL RADR4 



Y050D 



Y050E 



LDAX 

ORA 

JP 

CPI 

JZ 

CPI 

JNZ 

WVI 

STAX 

EQU 

PUSH 

MVI 

CALL 

CALL 

PUSH 

MVI 

CALL 

POP 

LDAX 

ANI 

CPI 

POP 

JNZ 

MVI 

STAX 

CALL 

EQU 

CALL 



D 

A 

Y050G 

Y080 

Y050E 

EHALF 

Y050D 

A,200Q 

D 

$ 

D 

H^BASEH 

CURPL 

RADR4 

D 

H, BASER 

CURPR 

D 

D 

YOFO 

YOAO 

D 

Y0506 

A,200Q 

D 

RADR4 

$ 

NTCHR 



;CHAR 
;ASCII 



;N0 SAVE ADR.#1 
;CURS0R LEFT 



;N0 DEL. 
;SHIFT 2 + 3 



OFF 



;6ET NEW DEL. ADR. 
;NEXT CHAR. ADR 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
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5798 




Y0506 


EQU 


$ 




5798 


EB 




XCN6 






5799 


2219FC 




SHLD 


YZ010 


;STORE CHAR, ADR 


579C 




Y050H 


EQU 


$ 




579C 


2A19FC 




LHLD 


YZ010 




579F 


EB 




XCRG 






57A0 


1A 




LDAX 


D 




57A1 


47 




WOV 


B,A 




57A2 


3EBF 




«VI 


A^EHLIU 




57A4 


90 




SUB 


B 




57 A5 


DABC57 




JC 


Y050X 




57A8 


AF 




XRA 


A 




57A9 


3298FF 




STA 


CHSAV 




57AC 


CDDBOO 




CALL 


CD100 




57AF 


3A98FF 




LDA 


CHSAV 




57B2 


FEOO 




CPI 


NULL 




57B4 


CABC57 




JZ 


Y050X 




57B7 


FE20 




CPI 


ABLNK 


;BLANK? 


57B9 


C29C57 




JNZ 


Y050H 


;N0 CONT. DELETE 


57ec 




Y050X 


EQU 


$ 




57BC 


2AC0FF 




LHLD 


CRROW 




57BF 


E5 




PUSH 


H 




57C0 


CDC900 




CALL 


CRRET 




57C3 


3E64 




«VI 


A, 100 




57C5 


321BFC 




STA 


YZ100 




57 C8 




Y050Y 


EQU 


$ 




57C8 


CDF600 




CALL 


RADR4 




57CB 


C2E257 




JNZ 


Y050Z 




57CE 


EB 




XCHG 






57CF 


2219FC 




SHLD 


YZ010 




57D2 


CDFA63 




CALL 


BY440 




57D5 


CAE257 




JZ 


Y050Z 




57D8 


CDE700 




CALL 


LNDEL 




57DB 


211BFC 




LXI 


H,YZ100 




57t>E 


35 




OCR 


M 




57DF 


C2C857 




JNZ 


Y050Y 




57E2 




Y050Z 


EQU 


$ 




57E2 


El 




POP 


H 




57E3 


22C0FF 




SHLD 


CRROW 




57 E6 


C9 


r 


RET 










; DEL 


. ZEICHEN 




57 E7 




BY 05 1 


EQU 


$ 




57E7 


CD6B6A 




CALL 


CKSLR 


;SHIFT L-R 


57EA 


CO 




RNZ 




;YES EXIT 


57EB 


C01A01 




CALL 


CKFMS 


; FORMAT MODE 


57EE 


C21058 




JNZ 


Y051D 




57F1 


3AF8FF 




LDA 


CFLGS 




57F4 


2F 




CMA 






57F5 


E602 




ANI 


ISURP 


;INSERT ? 


57 F7 


CA065 8 




JZ 


Y051B 




57FA 




Y051A 


EQU 


$ 




57FA 


3E20 




«VI 


A, ABLNK 




57 FC 


3289FF 




STA 


DCHAR 




57FF 


CD0201 




CALL 


DSPLA 




58 C2 


CDDBOO 




CALL 


CD100 




5805 


C9 




RET 







38 
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5806 




Y051B 


EQU 


$ 


58 06 


CDBDOO 




CALL 


IHOFF 


5809 


C&FA57 




CALL 


¥051 A 


58 OC 


COB700 




CALL 


IRPON 


580F 


C9 




RET 




5810 




Y0510 


EQU 


$ 


5810 


3ED0 




MVI 


A^320Q 


5812 


OEDO 




»VI 


C,320Q 


5814 


329CFF 




STA 


CARIN 


5817 


3257FE 




STA 


BYOOC 


581A 


C33C51 





awp 


EXBYM 



5810 




581D 


CDE258 


5820 


3EFB 


5822 


CD5B6A 


5825 


21A552 


5828 


37 


58 29 


3F 


582A 


22F1FF 


582D 


CD4000 



; ******************************** 

'; FULL RESET OR FIRST ENTRY 

;********************************-l-* 

BYFRE EQU $ 

CALL BYSRE ;CLEAR VARIABLE 

MVI A^377Q-B¥BEF 

CALL C8FL1 ;CLEAR IND. BE FEHLSZAEHLER 

LXl H^YKS04 

STC 

CMC 

SHLD M6PT1 ;PROGRAHM NRZ/WAZ 

CALL DPMSG 



5830 C9 RET 



r 
J************************************** 

; START BEFEHLSANWEISUNG 
-************************************** 

5831 BY070 EQU $ 

5831 CD870C CALL IRPON ; INSERT ON 

5834 3E20 WVI A^ABLNK 

5836 3289FF STA DCHAR 

5839 CD0201 CALL BSPLA 

583C 21DE53 LXI H^YKS24 

583F CD2F6A CALL BY950 

5842 3A67FE LDA BYFLI ;BISY ROUT. FLAG 

5845 E602 ANI BYINS ;INSERT SET. ? 

5847 CCBDOO CZ IHOFF ;N0 INSERT OFF 

584A 3E04 ' MVI A^BYBEF 

584C CD556A CALL SBFLl 

584F 3E3C MVI A,60 

5851 3217FC STA Y0801 

5854 C9 RET ;EXIT 

t 
I 

;*************************************** 

; ENDE BEFEHLSANWEISUNG 
;*************************************** 

5855 BY080 EQU $ 

5855 3A57FE LDA BYOOC ;6ET INP. CHAR^ 

5858 47 MOV B,A ;CODE IN B 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 
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20 
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20 
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20 
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20 
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20 
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20 
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5859 


21FB51 




LXI 


H,BYT03 


;TAB ERROR COOES 


585C 


CD6069 




CALL 


BY900 


;CHECK TAB 


585F 


C26E5 8 




JNZ 


Y080B 


;NOERROR 


5862 


01470 




CALL 


ZBELL 


; SOUND THE BELL 


5865 


21BA5 4 




LXI 


H,YMS40 




5868 


CDD158 




CALL 


BYWES 




5 86B 


C3AD58 




JKP 


Y080Z 


;ANO EXIT 


586E 




Y080B 


EQU 


$ 




586E 


21F151 




LXI 


H,BYT02 


;TAB END BEFEHLSAWM. 


5871 


CD6069 




CALL 


BY900 


;CHECK TAB 


5 874 


CA9A58 




iZ 


Y080F 


;YES 


5877 


48 




«0V 


C,B 


;INPUTCHAR- 


5878 


78 




MOV 


A^B 


;IN A AND B 


5879 


AF 




XRA 


A 


;CLEAR A 


587A 


81 




ORA 


C 


;ALTERNATE CHAR.? 


587B 


FA8D58 




JM 


Y080C 


;YES 


587E 


2117FC 




LXI 


H,Y0801 


;N0 ASCII 


5881 


35 




OCR 


n 


;DECR, CHAR. COUNTER 


5882 


C28D58 




JNZ 


Y080C 


;ZERO ? 60 CHAR. 


5885 


3E20 




«VI 


A^ABLNK 




5887 


3257FE 




STA 


BYDOC 




588A 


C39A58 




JWP 


Y08DF 




588D 




Y080C 


EQU 


$ 




588D 


FE8C 




CPI 


Y0214 




588F 


C29758 




JNZ 


Y080D 




5892 


3EFB 




MVI 


A,377Q-BYBEF 


5894 


CD5B6A 




CALL 


CBFL1 




5897 




Y080D 


EQU 


$ 




5897 


C3A850 


# 


JMP 


8Y001 


;RET STEUERUNG 


589A 




Y080F 


EQU 


$ 




589A 


CDB05 8 




CALL 


BY081 


;ENO INSERT 


589D 


3A57FE 




LOA 


BYOOC 


;RECALL INPUT CHAR. 


58A0 


FE3E 




CPI 


Y076 


;BEF. END 


58A2 


CAAD58 




JZ 


rosoz 


;YES 


58A5 


FE20 




CPI 


ABLNK 


; BLANK? 


58A7 


CAAD58 




JZ 


Y080Z 


;YES 


58 AA 


C3AB50 




JKP 


BY001 


;N0 RET STEUERUNG 


58AD 




Y080Z 


EQU 


$ 




58AD 


C 33451 


. 


JMP 


BY999 


; RETURN 






;********************************** 








INSERT ENO BEFEKLS ANWEISUNG 






; ********************************** 


58B0 




BY081 


EQU 


$ 




58B0 


CDB700 




CALL 


IRPGN 




58B3 


21E153 




LXI 


H^YMS25 




5SB6 


CD2F6A 




CALL 


BY950 




58B9 


3A67FE 




LOA 


BYFL1 




58BC 


E6 02 




ANI 


BYINS 




58BE 


CCBDOO 




CZ 


IHOFF 




58C1 


3EFB 




MVI 


A,377Q-BYBEF 


58C3 


CD5B6A 




CALL 


CBFL1 




58 C6 


C9 




RET 







;********************************** 
; END BEFEHLSANW. AND BY BEF NOT SET 
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58 D1 
58D1 
58D2 
58D5 
5808 
58D8 
58DB 
58DE 
58E1 



58E2 
58 E2 
58E3 
58E6 
58 E7 
58EA 
58ED 
58F0 
58 F3 
58F6 
58 F6 



:*********************************** 



5 8C7 




BY 081 


I EClU 


$ 


58C7 


CD1470 




CALL 


ZBELL 


58CA 


21BA54 




LXI 


H,VMS40 


58CD 


CDD158 




CALL 


BYMES 


58D0 


C9 




RET 





;ERROR AND 



37 

22F1FF 

CD4000 

CD0570 
C2D858 
CD4300 
C9 



AF 

C05B6A 

AF 

3266FE 

3265FE 

326EFF 

3253FE 

COBDOO 

C9 



58 F7 




58F7 


3A67FE 


58FA 


E620 


58FC 


C20559 


58FF 


CDEAOO 


5902 


C25759 


5905 




59 05 


CDC900 


59 08 


C08BOO 


5 9 OB 




590B 


3A67FE 


590E 


E601 


5910 


CA2F59 



DISPL. FEHLERMELDUN6EN 
H+L = ADR. 



BYHES 



Y083D 



EQU 

STC 

SHLD 

CALL 

EQU 

CALL 

JNZ 

CALL 

RET 



MSPT1 

DPMS6 

$ 

ZETKY 

Y083D 

RTDSP 



****** ****-k*it* ****** *************** 



SOFT RESET = CLEAR VARIABLE 
BYSRE EQU $ 



;CLEAR BY-FLA6 



Y090Z 



XRA 


A 


CALL 


CBFL1 


XRA 


A 


STA 


BYFL2 


STA 


BYFL3 


STA 


DFLGS 


STA 


BYM01 


CALL 


IHOFF 


EQU 


$ 


RET 





************************************ 

: CALL FROM BYlOO LAST CHAR. ROW 
************************************* 



BY 095 



Y095B 



Y095C 



EQU 


$ 




LDA 


BYFL1 


f 


AMI 


BYMF2 


;READ KEY 


JNZ 


Y095B 


;YES 


CALL 


DXB2D 


;CTU? 


JNZ 


Y095Z 


;YES 


EQU 


$ 




CALL 


CRRET 


;RETURN 


CALL 


LFEED 


;LINEFEED 


EQU 


$ 




LDA 


BYFL1 


;BLOCK KOVE SET? 


ANI 


BYKOV 




JZ 


Y095G 


;N0 
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5913 


CDB400 


CALL 


RADDR 


5916 


C22F59 


JNZ 


Y095G 


5919 


Y095D EQU 


$ 


5919 


CD9100 


CALL 


NTCHR 


591C 


C22F59 


JHl 


Y095G 


591F 


FECC 


CPI 


EOL 


5921 


CA1959 


JZ 


Y095D 


5924 


FEC3 


CPI 


FILL 


5926 


CA1959 


JZ 


Y095B 


5929 


CDE10Q 


CALL 


LNINS 


592C 


CD365F 


CALL 


BY127 



592F 



Y0956 EQU $ 



592F 


3AF3FF 




LDA 


MFLG2 


;CHECK FOR 


5932 


E6 04 




ANI 


ATOLF 


;LFEED SET ? 


5934 


CA5759 




41 


Y095Z 


;N0 AUTO LINEFEED 


5937 


CDEAOO 


r 


CALL 


DXB2D 


;CHECK DATA COMM 


593A 


CA4359 




JZ 


Y095K 


;N0 


59 30 


CD8BO0 


t 


CALL 


LFEED 


;PROCESS LINEFEED 


5940 


C35759 




JKP 


Y095Z 


;AND EXIT 


5943 




Y095K 


EQU 


$ 




5943 


3A67FE 




LDA 


BYFL1 


;CALL FROM 


5946 


E601 




ANI 


BYMOV 


;8L0CK MOVE / 


5948 


C25159 




JNZ 


Y095K 


;YES 


594B 


CD8B00 




CALL 


LFEED 


;N0 


594E 


C35759 




JMP 


Y095Z 


* 


5951 




Y095M 


EQU 


$ 




5951 


CD8B00 




CALL 


LFEED 


;LINEFEED 


5954 


C0365F 




CALL 


BY127 




5957 




Y095Z 


EQU 


$ 




5957 


37 




STC 




;SET CARRY 


5958 


3F 




CMC 






5959 


C9 




RET 




;RET TO MAIN PROG. 



CTU 



595A 




595A 


3A6EFF 


59 5D 


E601 


5 95F 


C2045A 


5962 


CD1A01 


5965 


C2 045A 


5968 


3A67FE 


5968 


E601 


596D 


C27659 


5970 


CDEAOQ 


5973 


CA7D59 



^**** *******************■*[ ******** 
************************************************* 

; * 

; BYIOO SANZW0RTRE6EL * 

; * 

********************* **************************** 

BYIOO EQU $ 



LDA DFL6S 

ANI SACOM 

JNZ YIOOV 

CALL CKFM^ 

JNZ Y10DX 

LDA BYFL1 

ANI BYMOV 

JNZ Y100K 



CALL DXB2D 
JZ Y100A 



;DATA COMM 



;BL0CK 
;M0VE ? 
;YES EXIT 

;DATA COMM OR CTU 
;N0 = KEYBOARD 



5976 



Y100K EQU $ 
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5976 
5979 
597A 
597D 
597D 

5980 

5980 
5982 

5985 
5986 
5989 
5989 
598C 
598D 
598F 
5992 
5995 
5998 
5999 
5998 
599E 
59A1 
59A3 
59A6 
59 A9 
59A9 
59AC 
59AE 
59B1 
5984 
59B5 
59B8 
59BB 

59BB 
59BE 
59C1 
59C4 
59C5 

59C8 
59CB 
59CE 
59D1 
5904 
59D7 
59D7 
59DA 
59DA 
59DD 
59E0 

59E3 
59E3 
59 E6 
59E9 
59 EB 



CDB400 
1A 
C38 059 

3ft9CFF 



FE20 
CAF758 

AF 
325CFE 

215CFE 

34 

26FF 

CDC 000 

CDB400 

C2015A 

1A 

FE2 

CAA959 

3A5CFE 

FE04 

CAFE5 9 

C38959 

CDB700 

26FF 

CDC300 

CDF600 

EB 

225DFE 

CDF758 



2A5DFE 

CDEA63 

CAE359 

B7 

F2 0A5 9 

325FFE 
2A5DFE 
C0EA63 
CAD759 
C07F6A 

3A5FFE 

CD7F6A 
CDE400 
C3BB59 



CDE400 
3A67FE 
E602 
CCBDOO 



Y100A 
Y100B 



Y100C 



Y100D 



Y100E 



Y100F 
Y1006 



CALL 

LE>AX 

JMP 

EQU 

LDA 

EQU 

CPI 
JZ 

XRA 

STA 

EC^U 

LXI 

XNR 

MVI 

CALL 

CALL 

JNZ 

LDAX 

CPI 

JZ 

LOA 

CPI 

JZ 

J«P 

EQU 

CALL 

MVI 

CALL 

CALL 

XCHG 

SHLD 

CALL 

EQU 



RA&OR 

D 

Y100B 

$ 

CARIN 



ABLNK 
BY095 

A 

BYZ05 

S 

H,BYZ05 

M 

K^BASEH 

CURPL 

RADDR 

YIOOZ 

D 

ABLNK 

YIOOD 

BYZ05 

100B 

viooa 

Y100C 

$ 

IRPON 

H^BASEH 

CURPR 

RADR4 

BYZ04 
BY095 
$ 



LHLD BYZ04 
CALL Y430D 
JZ Y100H 
ORA A 
JP Y1006 



STA 

LHLD 

CALL 

JZ 

CALL 

EQU 

LDA 

EQU 

CALL 

CALL 

JMP 



BYZ03 

BYZ04 

Y43QD 

Y100F 

CRINS 

$ 

BYZ03 

$ 

CRINS 

CRADV 

Y100E 



;LOCATE CURP. 
;ADRESSE 



CHAR. 



;LOAD INPUT CHAR. 

;KEYBOARD 

;ENTRY BYtOO WITH 

CHARACTER IN ACCUM. 

;LAST CHAR. BLANK? 

;ECEC. AUTO LINEFEED 



;CLEAR CHAR..COUNTERR 

;LOAD REG. MIT MEM. ADR 

;INCR. COUNTER 
;LOAD H-REG =FFH 

; CURSOR POINTER LEFT 

;6ET CURRENT CHAR-ADR. 

;CHAR.NOT FOUND 

;LOAD CHAR. IN REG. 

;CHAR = BLANK ? 

;YES BLANK FOUND 
;LOAD CHAR. COUNTER 
;COMP.KONST^ 64 DEC 
;CARRY=1 EXIT MAX CHARACTER 

;N0 LOOP NEXT CHAR. 

;SET INSERT WITH WRAP. ON 



;6ET CHR. ADR. 
;SAVE 
;DELETE ADR. 



;DEL.ADR- 

;DEL, CHARACTER 

;EOL 

;ASCII ? 

;YES 

;N0 ENHANC. 

;DEL. NEXT- CHAR, 

;EOL 

;INSERT CHAR. 



YIOOH 



EQU $ 
CALL CRADV 
LDA BYFL1 
ANI BYINS 
CZ IHOFF 



;BISY ROUT. FLAG 
;INSERT SET. ? 
;N0 INSERT OFF 
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--^ 



59EE 


3A5CFE 


59F1 


21BFFF 


59F4 


86 


59F5 


32C1FF 


59 F8 


320780 


59FB 


C3015A 


59FE 




59FE 


CDF758 


5A01 




5A01 


37 


5 A 02 


3F 


5A03 


C9 


5A04 




5A04 


37 


5 A 05 


C9 



5A06 
5 A 06 
5 A 09 
5A0B 
5A0E 
5A10 
5A13 
5A16 
5A16 
5A19 
5AtC 
5A1F 
5A22 
5A23 
5A26 
5A29 
5A2C 
5A2D 
5A30 
5A32 
5A35 
5A37 
5A3A 
5A3D 
5A3D 
5A40 
5A43 
5A44 
5A47 
5A4A 
5A4D 
5A50 
5A53 
5A56 
5A56 
5A59 
5A5C 
5A5C 
5A5E 



3A53FE 

FEOO 

CA165A 

FE01 

CA3D5A 

C39B5A 

3AC1FF 

3202FC 

3AC0FF 

21A3FF 

86 

3201FC 

CDF600 

C49C5B 

EB 

2205FC 

3E01 

3253FE 

3E01 

CD556A 

C3645A 

CD475B 

2A01FC 

EB 

2A09FC 

CD2A5B 

CA925A 

F2565A 

CD7F5B 

C35C5A 

CD7F5B 
C0625B 

3E02 
3253FE 



nooj 

YIOOZ 



Y100X 



LOA 
LXI 
ADD 
STA 
STA 
J«P 
EQU 
CALL 

Eau 

STC 
C«C 
RET 
EQU 
STC 
RET 



BYZ05 

H^LTMGN 

M 

CRCOL 

ICRCL 

YlOOZ 

$ 

BY 09 5 

$ 



;LOAD COUNTER t 2 



;EXIT 



;T0 CURRENT COLUPINE 
;SET CURSOR COL. 



Y110D 



;* BY110 = 

BY110 EQU 
LDA 
CPI 
JZ 
CPI 
JZ 
JMP 
EQU 
LDA 
STA 
LOA 
LXI 
ADD 
STA 
CALL 
CNZ 
XCH6 
SHLD 
HVI 
STA 
HVI 
CALL 
JKP 
EQU 
CALL 
LHLD 
XCH6 
LHLD 
CALL 
JZ 
JP 

CALL 
JMP 
EQU 
CALL 
CALL 
EQU 
MVI 
STA 



Y110E 



********** 

SET DEFIN 
********** 

$ 

BYM01 

NULL 

Y110D 

Y001 

Y110E 

Y110P 

$ 

CRCOL 

Y1102 

CRROW 

H,TLINO 

« 

Y1101 

RADR4 

BY116 

Y1106 

A,1 

BYM01 

A^BYWOV 

SBFL1 

Y110K 

$ 

BY113 

Y1 1 01 



;SET CARRY BIT 

;COKPL = CLEAR CARRY BIT 



;RETURN 



***************************** 

E BLOCK FROM - TO * 

***************************** 

; ENTRY 

;INDIKATOR FROPI/TO 

;NULL ? 

DEF. BLOCK FROM 

DEF. BLOCK TO 
ERROR BLOCK DEFINE 



;YES 
; 01 
;YES 

;N0 



;SAVE CURRENT COLUHN # 

;FROK 

;AND 



;CURRENT ROW # 
;GET CHAR. ADR. 



;D-E H-L 
;STORE ADR 
;INDIKATOR 
;SET 



Y110G 



Y110H 



Y1108 

BY112 

Y110R 

Y1106 

BY115 

Y110H 

$ 

BY115 

BY114 

$ 

A, 2 

BYM01 



;SAVE PARAM. #3 
;PARAW. #1 

; PARAM. #2 
; COMPERE 
;PARAH #1 EQ #3 
; PAR AM #1 GT #3 
; PA RAM 33 TO #2 



; PARAM #3 TO # 2 
;CHAN6E PARAM #1-#2 

;SET 
;INDIKATOR AND 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
OH FILE 20 

FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



5A61 


C 3645 A 




J MP 


Y110K 


^INSERT DEF BLOCK 


5A64 




Y110K 


EQU 


$ 




5A64 


CDF600 




CALL 


RADR4 


;GET CHAR 


5 A 67 


C2755A 




JN2 


Y110L 


;NOT FOUND 


5A6A 


1A 




LDAX 


D 


;GET CHAR. 


5A6B 


E6F0 




ANI 


YOFO 


;IT IS 


5A6D 


FEAO 




CPI 


YOAO 


;ALT ON? 


5A6F 


C2755A 




JNZ 


Y110L 


;N0 


5A72 


F603 




ORI 


3Q 


• 


5A74 


12 




STAX 


D 




5A75 




Y110L 


EQU 


$ 




5A75 


CDB700 




CALL 


IRPON 


;TURN INS. CHAR-WRAP 


5A78 


26FF 




MVI 


H,BASEH 




5A7A 


CDC300 




CALL 


CURPR 


^CURSOR RIGHT 


5A70 


3E80 




HVI 


A^NRMAL 


;VIDEO OFF 


5A7F 


CD7F6A 




CALL 


CRINS 


;INSERT 


5A82 


26FF 




MVI 


H^BASEH 




5A84 


CDCOOO 




CALL 


CURPL 


;CURSOR LEFT 


5A87 


3E83 




MVI 


A,203Q 


;VIDEO ON 


5A89 


CD7F6A 




CALL 


CRINS 


; INSERT 


5A8C 


CDBDOO 




CALL 


IHOFF 


;TURN INS. CHAR. OFF 


5A8F 


C3E95A 




JMP 


Y110Z 


;EXIT 


5A92 




Y110M 


EQU 


$ 








PARAM # 


1 EQ # 3 




5A92 


2A05FC 




LHL& 


Y1106 


;ADR. PARAM #1 


5A95 


CDEA5A 




CALL 


eYl11 


;i>EL. DEF BLOCK 


5A98 


C3DD5A 




JMP 


Y110W 


;AND EXIT 


5A9B 




Y110P 


EQU 


$ 




5A9B 


CD475B 




CALL 


BY113 


;SAVE PARAM. #3 


5A9E 


2A01FC 




LHLD 


Y1101 


;PARAM #1 


5AA1 


EB 




XCHG 






5AA2 


2A09FC 




LHLD 


Y1108 


;PARAM #3 


5AA5 


C02ASB 




CALL 


BY112 


;COMPERE 


5AA8 


CAC65A 


# 


JZ 


Yl10e 


;#1 EQUAL #3 


5AAB 


2A03FC 


• 
* 


LHLD 


Y1103 


;PARAM #2 


5AAE 


EB 




XCHG 






5AAF 


2A09FC 




LHLD 


Y1108 


; PARAM nZ 


5AB2 


CD2A5B 




CALL 


BY112 


;COMPERE 


5AB5 


C2D75A 




JNZ 


Y110R 


;#2 NOT EQUAL #3 






e 
t 


PARAM <r 3 EQUAL # 2 


5AB8 


2A07FC 




LHLD 


Y1107 


;ADR. PARAM #2 


5ABB 


CDEA5A 




CALL 


BY111 


;DEL- DEF BLOCK 


5ABE 


3E01 




MVI 


A,1 


;IND SET 


5AC0 


3253FE 




STA 


BYM01 


;T0 #2 


5AC3 


C3E95A 




JMP 


Y110Z 


;AND EXIT 






i 


PARAM. # 3 EQUAL # 1 


5AC6 




Yiioa 


EQU 


S 




5AC6 


2A05FC 




LHLD 


Y1106 


;ADR. PARAM #1 


5AC9 


CDEA5A 




CALL 


BY111 


;DEL. DEF BLOCK 


5ACC 


CD625B 




CALL 


BY114 


;CHAN6E PARAM 


5ACF 


3E01 




MVI 


A,1 


;SET IND TO 


5AD1 


3253FE 




STA 


BYM01 


;# 2 


5AD4 


C3E95A 




JMP 


Y11DZ 


;AND EXIT 
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5 A 07 




5AD7 


CD1470 


5ADA 


C3E95A 


5ADD 




5A0B 


CBBDOO 


5AE0 


AF 


5AE1 


3253FE 


5AE4 


3EFE 


5AE6 


CD5B6A 


5AE9 




5AE9 


C9 



5AEA 
5AEA 
5AEB 
5AEE 
5AF1 
5AF4 
5AF7 
5AFA 
5AFD 
5AFF 
5B02 
5B05 
58 08 
5B08 
5B0B 
5B0E 
5B10 
5B13 
5B16 
5B19 
5B1B 
5B1D 
5B20 
5B20 
5B23 
5B23 
5B26 
5B26 
5B29 



582A 
5B2A 
5B2D 
5B2E 
5B31 
5B34 
5B37 
5B38 



AF 

321BFC 

2219FC 

CD055E 

CD055E 

321CFC 

CD055E 

FE80 

CA085B 

321BFC 

CD295E 

CDB700 

3A1BFC 

FEOO 

CA205B 

CD7F6A 

3A1CFC 

E6F0 

FEAO 

CA235B 

3A1CFC 

CD7F6A 

COBDOO 
C9 



221BFC 

EB 

221 DFC 

211BFC 

3A1DFC 

BE 

CA3D5B 



Y110R 



V110W 



Y110Z 



EQU 

CALL 

JMP 

EQU 

CALL 

XRA 

STA 

HVI 

CALL 

EQU 

RET 



$ 

ZBELL 

Y1102 

$ 

IHOFF 

A 

BYBOI 



;SOUND 
;EXIT 



THE BELL 



A,377Q-BYK0V 

CBFL1 

$ 



;TURN OFF 
;CLEAR BLOCK 
; POINTER 



; DEL. PA 
H 
********** 

EQU 



BY111 



Y111D 



Y1116 
Y111K 
Y111W 



BY112 



;SAVE ADR. 

;DEL 

;CHAR 

;SAVE 

;DEL 

;IT IS VIDEO OFF 

;YES 

;N0 

;DEL NEXT CHAR. 



*************************** 

RAWETER OEF. BLOCK 

- L = CHAR. ADR. 

*************************** 
$ 

XRA A 
STA YZ100 
SHLD YZ010 
CALL BY125 
CALL BY125 
STA YZ101 
CALL 8Y125 
CPI Y0200 
JZ YtllD 
STA YZ100 
CALL Y125B 
EQU $ 
CALL IRPON 
LOA YZ100 
CPI NULL 
JZ Y1116 
CALL CRINS 
LDA YZ101 
ANI YOFO 
CPI YOAO 
42 Y111K 
EQU $ 
LDA ¥2101 
EQU $ 
CALL CRINS 
EQU $ 
CALL IHOFF 
RET 



COKP. PARAMETER 
D-E ADR A 
H-L ADR B 

EQU $ 

SHLD YZ100 

XCHG 

SHLD YZ102 

LXI H^YZIOO 

LDA YZ102 

CMP M 

JZ Y112B 



;SAVE PARAK. B 
;SAVE PARAW- A 

; EQUAL 



FILE 


20 
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20 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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5B3B 


FO 




RP 




;A GT B 




5B3C 


C9 




RET 




;A LT B 




5B3D 




Y112B 


EQU 


$ 






5B30 


211CFC 




LXI 


H^YZIOI 






5B40 


3A1EFC 




LDA 


YZ103 






5B43 


BE 




CMP 


M 






5B44 


C8 




RZ 




; EQUAL 




5B45 


FO 




RP 




;A 6T B 




5846 


C9 




RET 
SAVE 


PARAM #3 


;A LT B 




5B47 




BY113 


EQU 


$ 






5B47 


3AC1FF 




LDA 


CRCOL 






5B4A 


320AFC 




STA 


Y1109 






5B40 


3AC0FF 




LDA 


CRROW 






5B50 


21A3FF 




LXI 


H^TLINO 






5B53 


86 




ADD 


K 






5B54 


3209FC 




STA 


Y1108 






5B57 


C0F600 




CALL 


RADR4 






5B5A 


C49C5B 




CNZ 


BY116 






5B5D 


EB 




XCHG 




;YES 




5B5E 


220BFC 




SHLD 


Y1100 


;SAVE ADR. 




5B61 


C9 




RET 














CHANG PARAM #1 


#2 




5862 




BY114 


EQU 


$ 






5B62 


2A01FC 




LHLD 


YitOI 






5B65 


EB 




XCHG 








5B66 


2A03FC 




LHLD 


Y1103 






5B69 


2201FC 




SHLD 


Y1101 






5B6C 


EB 




XCHG 








5B6D 


2203FC 




SHLD 


Y1103 






5B70 


2A05FC 




LHLD 


Y1106 






5B73 


EB 




XCHG 








5B74 


2A07FC 




LHLD 


Y1107 






5B77 


2205FC 




SHLD 


Y1106 






5B7A 


EB 




XCHG 








5B7B 


2207FC 




SHLD 


Y1107 






5B7E 


C9 




RET 














PARAR #3 TO #2 






5B7F 




BY115 


EQU 


$ 






5B7F 


2A09FC 




LHLD 


Y1108 






SB 82 


EB 




XCHG 








5B83 


2A03FC 




LHLD 


Y1103 






5B86 


2209FC 




SHLD 


Y1108 






5B89 


EB 




XCHG 








5B8A 


2203FC 




SHLD 


Y1103 






5B8D 


2A0BFC 




LHLD 


Y1 1 00 






5B90 


EB 




XCHG 








5B91 


2A07FC 




LHLD 


Y1107 






5B94 


220BFC 




SHLD 


Y1100 






5B97 


EB 




XCHG 








5B98 


2207FC 




SHLD 


Y1107 






5B9B 


C9 


w 
f 
* 
# 


RET 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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;INIT. 


DISPL. LINE 


5B9C 




BY116 


EQU $ 


5B9C 


3E20 




MVI A^ABLNK 


5B9E 


3289FF 




STA DCHAR 


5BA1 


CD0201 




CALL DSPLA 


5BA4 


CDF600 




CALL RADR4 


5BA7 


C9 




RET 



5BA8 
5BA8 
5BAB 
5BAD 
5BB0 
5BB3 

5BB6 
5BB6 
5BB7 
5BBA 
5BBD 

5BC0 
5BC3 
58C6 
5BC9 
5BCC 
SBCO 

5B00 
5BD0 
5BD3 
5BD5 
5BD8 
SBDB 
5BDB 
5B0E 
5BE1 
5BE2 

5BE5 
5BE5 
5BE8 
56EB 

5BEB 
5BEE 
5BF1 
5BF4 
5BF7 
5BF9 
5BFC 
5BFF 
5C02 
5C04 
5C07 



3A53FE 

FED2 

CAB65B 

CD1470 

C37E5D 



AF 

3211FC 
3216FC 
3214FC 

2AC0FF 

220EFC 

3 AC OFF 

21A3FF 

86 

3212FC 



CD5D5F 
FEOO 
CADB5B 
C37E5B 

3A03FC 
2101FC 
96 
CAE55B 



2A05FC 
2219FC 



CD295E 

CD295E 

3210FC 

CD 2 95 E 

FE80 

CA075C 

3211FC 

C0295E 

3E01 

3215FC 



^**1e1c **************** **************** 

BY 120 HOVE BLOCK 
:*************************** ********* 



BY120 



Y120C 



Y120D 



Y120E 



EQU 

LDA 

CPI 

JZ 

CALL 

JMP 

EQU 
XRA 
STA 
STA 
STA 

LHLD 

SHLO 

LDA 

LXI 

ADD 

STA 

EQU 

CALL 

CPI 

JZ 

JMP 

EQU 

LDA 

LXI 

SUB 

JZ 



$ 

BYM01 

Y002 

Yl20e 

ZBELL 

Y120Z 

$ 

A 

Y1207 

Y128t 

Y1251 

CRROW 

Y1201 

CRROW 

H^TLINO 

M 

Y1208 

$ 

BY128 

NULL 

Y120E 

Y120Z 

$ 

V1103 

H,Y1101 

M 

Y120F 



;IND 

;DEF. BLOCK 

;YES 

;N0 

;ERR0R EXIT 



;CALC. 

; ABSOLUTE 

;INSERT 

;R0W 



;CECK.MOVE POINT 

;0K 

;YES 

;N0 EXIT 

;ABS. TO ROW # 
;ABS. FROM ROW # 



Y120F EQU $ 

LHLD Y1106 
SHLD YZ010 

Y12 0G EQU $ 



;FROW ADRESSE 
; IN Z-FELD 



Y12G1 







POINT CURSOR RIGHT 


GALL 


Y125B 


;DEL. DEF BLOCK FROM - C 


CALL 


Y125B 


;DEL.CHAR. 


STA 


Y1204 


;SAVE THE CHAR. 


CALL 


Y125B 


;DEL.DEF BLOCK FROKM -OFF 


CPI 


Y0200 


; VI DEO OFF ? 


JZ 


Y12G1 


;YES 


STA 


Y1207 


;N0 SAVE CHAR. 


CALL 


Y125B 


;DEL.NEXT CHAR. 


MVI 


A,l 




STA 


Y1262 




EQU 


$ 
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FILE 20 
FILE 20 
FILE 20 

; FILE 20 

FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 

Y12CH EQU $ FILE 20 

FILE 20 
FILE 20 
FILE 20 
FILE 20 

Y120J EQU $ FILE 20 

FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 

Y12J0 EQU $ FILE 20 

FILE 20 
FILE 20 
FILE 20 

Y12J1 EQU $ FILE 20 

FILE 20 
FILE 20 
FILE 20 

Y12J3 EQU $ FILE 20 

FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 

Y120K EQU $ ;M0VE8L0CK FILE 20 

FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



5C07 


3A01FC 


5C0A 


2112FC 


5C00 


BE 


5C0E 


C23A5C 


5C11 


3A16FC 


5C14 


FEOO 


5C16 


CA3A5C 


5C19 


FE01 


5C1B 


GA3A5C 


5C1E 


2A0EFC 


5C21 


22C0FF 


5C24 


CDB400 


5C27 


CA2F5C 


5C2A 


3E01 


5C2C 


3213FC 


5C2F 




5C2F 


26FF 


5C31 


CDCOOO 


5C34 


2 AC OFF 


5C37 


220EFC 


5C3A 




5C3A 


3A11FC 


5C3D 


FEOO 


5C3F 


CA635C 


5C42 


3A10FC 


5C45 


47 


5C46 


C5 


5C47 


3A11FC 


5C4A 


321 OFC 


5C4D 


CD765E 


5C50 


CI 


5C51 


78 


5C52 


E6F0 


5C54 


FEAO 


5C56 


CA5A5C 


5C59 


78 


5C5A 




5C5A 


321 OFC 


5C5D 


CD765E 


5C60 


C36B5C 


5C63 




5C63 


3A10FC 


5C66 


FE20 


5C68 


C4765E 


5C6B 




5C6B 


3E20 


5C6D 


3211FC 


5C70 


3210FC 


5C73 


AF 


5C74 


3213FC 


5C77 




5C77 


CD055E 


5C7A 


3210FC 


5C7D 


FE83 


5C7F 


CAAB5C 


5C82 


CC0B6 3 


5C85 


C2775C 



LDA 


Y1101 


;ROW FROM 


LXI 


H^Y1208 


;ROW HOVE 


CMP 


K 




JNZ 


Y120J 


;PROCESS MOVE 


LDA 


Y1281 


;IND. DEL/INS ROW 


CPI 


NULL 




JZ 


Y120J 




CPI 


Y001 


;MOVE < FROM 


JZ 


Y120J 


;PROCESS MOVE 


LHLD 


Y1201 


;RESTORE 


SHLD 


CRROW 


;AKT. POINTER 


CALL 


RADDR 


;CHECK CHAR. EXIST.? 


JZ 


Y120H 


;YES 


MVI 


A.I 


;N0 = LOAD INDIKATOR 


STA 


Y1209 


;FOR FIRST INSERT 


EQU 


$ 




HVI 


H,BASEH 




CALL 


CURPL 


;CURSOR LEFT 


LHLD 


CRROW 


;STORE AKT POINTER 


SHLD 


Y1201 




EQU 


$ 




LDA 


Y12 07 


;CHECK 


CPI 


NULL 


;ALT./OR ENH. CHAR. 


JZ 


Y12J1 


;N0 


LDA 


Y1204 


;YES 


KOV 


B.A 




PUSH 


B 


;INSERT FIRST 


LDA 


Y1207 


;THE CHAR. 


STA 


Y1204 


;AND 


CALL 


BY126 


;INSERT 


POP 


B 


; SECOND 


KOV 


A,B 


;THE ALT. ON 


ANI 


YOFO 


;ALT ON 


CPI 


YOAO 


;? 


JZ 


Y12J0 


;YES 


MOV 


A.B 


;N0 


EQU 


$ 




STA 


Y1204 


• 



CALL 


BY126 




JMP 


Y12J3 




EQU 


$ 




LDA 


Y12 04 




CPI 


ABLNK 




CNZ 


BY126 




EQU 


$ 




NVI 


A, ABLNK 




STA 


Y1207 




STA 


Y1204 




XRA 


A 




STA 


V1209 




******************************* 


EQU 


$ 


;MOVE BLOCK 


CALL 


BY 125 


;DEL. CHAR. 


STA 


Y12D4 


;SAVE CHAR. 


CPI 


Y02 03 


; OEF. BLOCK END 


JZ 


Y120R 


;YES END BLOCK MOVE 


CALL 


BY410 




JNZ 


Y120K 





FILE 20 
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FILE 20 

FILE 20 

FILE 20 

5C88 FE83 CPI ¥0203 ;DEF. BLOCK FILE 20 

5C8A CAAB5C JZ t120R ;END FILE 20 

5C8D FE20 CPI ABLNK ;BLANK? FILE 20 

5C8F C29F5C JNZ Y120M ;N0 MOVE FILE 20 

5C92 3A11FC LDA Y1207 ;YES LAST CHAR, FILE 20 

5C95 FE20 CPI ABLNK ;BLANK? FILE 20 

5C97 CA775C JZ Y120K ;YES SET NEXT CHAR. FILE 20 

5C9A FE5F CPI Y0137 FILE 20 

5C9C CA775C JZ Y120K FILE 20 

5C9F Y120« EQU $ FILE 20 

5C9F 3A10FC LDA Y1204 ;N0 SAVE CHAR. FILE 20 

5CA2 3211FC STA Y1207 ;T0 LAST CHAR- FILE 20 

5CA5 CD765E CALL BY126 ;INSERT. CHAR. FILE 20 

5CA8 C3775C JHP Y120K ;M0VE NEXT CHAR. FILE 20 

;************************************* FILE 20 

SCAB Y120R EQU $ ;DELETE &EF BLOCK END FILE 20 

SCAB AF XRA A FILE 20 

5CAC 3211FC STA Y1207 FILE 20 

5CAF CD29SE CALL Y125B ;DEL-CHAR. FILE 20 

5CB2 3210FC STA Y1204 ;SAVE TO MOVE FILE 20 

5CB5 CD295E CALL Y125B ;DEL- DEF BLOCK END -OFF- FILE 20 

5CB8 FE80 CPI Y0200 ;VIDEO OFF FILE 20 

5CBA CADB5C JZ Y12R1 ;YES FILE 20 

5CBD 3211FC STA Y1207 ; NO SAVE CHAR. FILE 20 

5CC0 CD295E CALL Y125B ;DEL.NEXT CHAR. FILE 20 

5CC3 3A10FC LDA Y1204 FILE 20 

5CC6 E6F0 ANI YOFO FILE 20 

5CC8 FEAO CPI YOAO FILE 20 

5CCA C2D65C JNZ Y12R0 ;N0 ALT CHAR. FILE 20 

5CCD 2119FC LXI H,YZ010 ;DEL. ADR. FILE 20 

5CD0 7E HOV A,« FILE 20 

5CD1 FE80 CPI 200ft ; ALT OFF? FILE 20 

5CD3 CC295E CZ Y125B ;YES DELETE FILE 20 

5CD6 Y12R0 ESU $ FILE 20 

5CD6 3E0t HVl A,1 FILE 20 

SCD8 3215FC STA Y1262 FILE 20 

5CDB Y12R1 EQiU $ FILE 20 

; FILE 20 

5CDB 3A01FC LDA Y1101 ;CALC. FROM FILE 20 

5CDE 2112FC LXI H,Y1208 ; MOVE FILE 20 

5CE1 BE CMP M ;EQUAL FILE 20 

5CE2 C2065D 4NZ Y120T ; NO - NORM INSERT FILE 20 

5CE5 3A16FC LDA Y1281 ;IND DEL/INS FILE 20 

5CE8 FEOO CPI NULL ; FILE 20 

5CEA CA065D JZ Y120T ;NOM. INSERT FILE 20 

5CED FE01 CPI Y001 ;MOVE BEF. FROM FILE 20 

5CEF C3065D JMP Y120T ;YES FILE 20 

; FILE 20 

5CF2 2A0EFC LHLD Y1201 ;N0 MOVE AFTER FROM FILE 20 

5CF5 22C0FF SHLD CRROtf ; REST. POINTER FILE 20 

5CF8 26FF MVI H,BASEH ; FILE 20 

5CFA CDCOOO CALL CURPL ;CURSOR LEFT FILE 20 

5CFD 2AC0FF LHLD CRROW ;AND FILE 20 

5D00 220EFC SHLD Y1201 ;STORE FILE 20 

5D03 C3065D JMP Y120T FILE 20 

FILE 20 



# 



5D06 Y120T EQU $ FILE 20 

5006 3A11FC LDA Y1207 ;CHECK FILE 20 

5D09 FEOO CPI NULL ;ALT./OR ENH. CHAR. FILE 20 

5D0B CA295D JZ Yt2Tl ;N0 FILE 20 
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50 OE 


3A10FC 






LOA 


Y1204 


;YES 


5D11 


47 






MOV 


B,A 




5D12 


C5 






PUSH 


B 


•INSERT FIRST 


5D13 


3A11FC 






LOA 


Y1207 


;THE CHAR. 


5D16 


3210FC 






STA 


Y1204 


;AND 


5E)19 


C0765E 






CALL 


BY126 


; INSERT 


5D1C 


CI 






POP 


B 


;SECONO 


5D1D 


78 






MOV 


A,B 


;THE ALT. ON 


5D1E 


E6F0 






ANI 


YOFO 


;ALT. ON 


5D20 


FEAO 






CPI 


YOAO 


;CHAR. 


5D22 


CA265D 






JZ 


Y12T0 


;YES 


5025 


78 






MOV 


A,B 




5026 




Y12T0 


EQU 


$ 




5026 


3 210FC 






STA 


Y1204 


* 

r 


5029 




Y12T1 


EQU 


$ 




50 29 


CD765E 






CALL 


BY 126 


• 


502C 


3A10FC 






LOA 


Y1204 




502F 


E6F0 






ANI 


YOFO 




50 31 


FEAO 






CPI 


YOAO 




5033 


3E8Q 






KVI 


A,200Q 




5035 


3210FC 






STA 


Y12 04 




5038 


CC765E 






CZ 


BY126 




503B 


2AC0FF 


t 




LHLO 


CRROW 


;LOAO LAST 


5D3E 


220EFC 






SHLD 


Y1201 


;INSERT POINTER 


5041 


3ABEFF 






LOA 


RTH6N 


;SET RTM6N 


5044 


32C1FF 






STA 


CRCOL 


;T0 CRCOL 


5047 


C0B400 






CALL 


RAODR 


;GET CHAR. AOR. 


504A 


C2515D 






JNZ 


Y120U 


;CHAR- NOT FOUNO 


5040 


1A 






LOAX 





;GET CHAR. IN A 


504E 


C08059 






CALL 


Y100B 


;EXEC. GANZWORTR 


5051 




Y120U 


EQU 


$ 




5051 


CDFA63 






CALL 


BY440 


;CHECK REST 


5054 


CA6C50 






JZ 


Y120V 


;0F LINE 


5057 


CD015F 






CALL 


BY129 


;OELETE LINE 


505A 


0A6C50 






JC 


Y120V 




5050 


CD905D 






CALL 


BY123 


;6ET NEXT CHAR. 


5060 


2219FC 






SHLO 


YZ010 




5063 


C0FA63 






CALL 


BY440 




5066 


CA6C5D 






JZ 


Y120V 




5069 


C0015F 






CALL 


BY129 




506C 




Y120V 


EQU 


$ 




506C 


2A0EFC 






LHLO 


Y1201 




5 06F 


22C0FF 






SHLO 


CRROW 










DEL 


. TRAILING 


;SET COLUMN 








BLANKS AFTER 


; RIGHT MARI6. 








BLOCK END OEF. 


; CALL BY100 


5072 


C37550 


t 




JMP 


Y120X 




5 075 




Y120X 


EQU 


$ 




5 075 


AF 






XRA 


A 


;CLEAR 


50 76 


3253FE 






STA 


BYM01 


;INO-OEF BLOCK 


5079 


3EFE 






MVI 


A,377Q- 


•BYMOV 


5 07B 


CD5B6A 






CALL 


CBFL1 




507E 




Y120Z 


EQU 


$ 




507E 


C9 






RET 




;RETURN TO MAIN 



ANO 



CODE 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



FILE 20 
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FILE 20 

FILE 20 

FILE 20 

; FILE 20 

;***DELETE LINE BEFORE OR AFTER SCREEN** FILE 20 

^****±**1t***-lt****************:1Ht*******1l;* FILE 20 

5D7F BY122 EQU $ FILE 20 

5&7F EB XCH6 ; FILE 20 

5D80 23 INX H ; FILE 20 

5D81 5D WOV E,L ; FILE 20 

5B82 54 WOV D^H ; FILE 20 

5D83 4E MOV C,« ; FILE 20 

5D84 23 INX H ; FILE 20 

5D85 46 HOV B,W ; FILE 20 

5D86 23 INX H ; FILE 20 

5D87 7E MOV A,M ; FILE 20 

5D88 23 INX H ; FILE 20 

5D89 66 MOV H,K ; FILE 20 

5D8A B7 ORA A FILE 20 

5D8B C8 R2 ; NO PREV. LINE FILE 20 

5D8C 6F MOV L^A FILE 20 

5D8D 23 INX H ; FILE 20 

5D8E 70 MOV M^B ; FILE 20 

5D8F 2B DCX H ; FILE 20 

5D90 71 MOV «,C ; FILE 20 

5D91 7D MOV A^L ; FILE 20 

5D92 03 INX B ; FILE 20 

5D93 03 INX B FILE 20 

5D94 03 INX B ; FILE 20 

5095 02 STAX B ; FILE 20 

5096 03 INX B ; FILE 20 

5097 7C MOV A,H ; FILE 20 
5 098 02 STAX B ; FILE 20 
5099 CODEOO CALL PTLIN ;LINE TO FREE LIST FILE 20 
50 9C C9 RET FILE 20 

; FILE 20 

; GET FIRST CHAR. ADR. NEXT LINE FILE 20 

; ENTRY 0-E LAST BLOCK AOR FILE 20 

; EXIT H-L NEXT. CHAR. AOR. FILE 20 

FILE 20 



f 



5090 BY123 EQU $ FILE 20 

5090 7B MOV A^E ;COHP.LOC.OF NEXT FILE 20 

509E E6F0 ANI 377Q-BLKSM ;8BL0CK POINTER FILE 20 

5DA0 5F MOV E,A ;GET NEXT BLOCK ADR- FILE 20 

50A1 EB XCHG FILE 20 

5DA2 5E MOV E^H ;6ET LSB NEXT BLOCK ADR. FILE 20 

50A3 23 INX H FILE 20 

5DA4 56 MOV 0,M ;GET MSB NEXT BLOCK AOR. FILE 20 

5DA5 EB XCHG FILE 20 

5DA6 56 MOV 0,11 ;6ET. LSB AOR. OF NEXT BLOCK FILE 20 

50A7 2B OCX H ;CHAR- ADR. FILE 20 

5DA8 5E MOV E^M ;6ET. MSB ADR. FILE 20 

50A9 EB XCHG ;AOR. IN H-L FILE 20 

50AA Y123X EQU $ FILE 20 

50AA C9 RET ;RETURN FILE 20 

FILE 20 

^*************-kit**ic*****it*****ic****ic** FILE 20 

DELETE LINE FILE 20 

; FILE 20 

; ENTRY 0-E AOR. OF NEXT BLOCK FILE 20 

************************************** FILE 20 

5DAB BY124 EQU $ . FILE 20 

50AB 3AA3FF LOA TLINO ;CALCULATION FILE 20 
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;DELETE LINE POINTER 

;TLINO - FRO« 

;ZERO 

;POS. BEFORE SCREEN 

;MXROW U 

;CALC. 

;FRO« AFTER SCREEN 

;FROK 

;MOVE 

;I>ELETE ON SCREEN 

;FROM BEFORE SCREEN 

;DELETE ON SCREEN 

;FROM AFTER WOVE 

;TOP DISP. LINE 

;CALCUL 

;CURRENT ROW tf DEL. 

;DELETE LINE 



;DELETE ON SCREEN 
;FROW BEFORE WOVE 

;CALC. 

;CURRENT. ROW # 

;DELETE LINE 

;OECR. 

;ABS. HOVE ROW # 

;DEGR, 

;LAST CURRENT INS. ROW tf 



;OELETE BEFORE SCREEN 

;DEL. LINE 

;BECR 

;TOP. DISP. LINE 

;DECR. 

;ABS.BOVE ROW # 



;DELETE AFTER SCREEN 
;DEL£TE LINE 



; RETURN 



************************************* 

DELETE CHARACTER 
************************************* 



80 MACRO ASSEKBi 


-ER, VE 


R 2.4 




5DAE 


2101FC 




LXI 


H,Y1101 


5DB1 


96 




SUB 


n 


5DB2 


CAB85D 




iZ 


Y124B 


5DB5 


F2F05D 




JP 


Y124H 


5DB8 




Y124B 


EQU 


$ 


5DB8 


0617 




HVI 


B^MXROW 


5DBA 


80 




ADD 


B 


5DB8 


FAFE5D 




JR 


Y124J 


5DBE 


3A01FC 




LDA 


Y1101 


5DC1 


2112FC 




LXI 


H,Y1208 


5DC4 


96 




SUB 


Vi 


5DC5 


FAD85D 




JK 


Y124F 


5DC8 




Y124D 


EOU 


$ 


5DC8 


3A01FC 




LDA 


Y1101 


5DCB 


21A3FF 




LXI 


H^TLINO 


5DCE 


96 




SUB 


M 


5DCF 


32C0FF 




STA 


CRROW 


50D2 


CDE700 




CALL 


LNDEL 


5DD5 


C3 045E 




JKP 


Y124Z 


5DD8 




Y124F 


EQU 


$ 


5DD8 


3A01FC 




LDA 


Y1101 


5D0B 


21A3FF 




LXI 


H,TLINO 


5D0E 


96 




SUB 


R 


5DDF 


32C0FF 




STA 


CRROW 


5DE2 


CDE700 




CALL 


LNDEL 


5DE5 


2112FC 




LXI 


H,Y1208 


5DE8 


35 




DCR 


K 


5DE9 


210EFC 




LXI 


H,Y1201 


5DEC 


35 




DCR 


H 


5DED 


C3045E 




JMP 


Y124Z 


5DF0 




Y124H 


EQU 


$ 


5DF0 


CD7F50 




CALL 


BY122 


5DF3 


21A3FF 




LXI 


H^TLINO 


5DF6 


35 




DCR 


« 


5DF7 


2112FC 




LXI 


H,Y1208 


5DFA 


35 




DCR 


R 


50F8 


C3045E 




JMP 


Y124Z 


5DFE 




Y124J 


EQU 


$ 


5DFE 


CD7F5D 




CALL 


BY 122 


5E01 


C3045E 




JMP 


Y124Z 


5E04 




Y124Z 


EQU 


$ 


5E04 


C9 




RET 





5E05 


BY 


125 EQU 


$ 




5E05 


2A19FC 


LHLD 


YZ010 


;RESTORE NEXT CHAR 


5 £08 


E6 


XCHG 




;PUT IN D-E 


5EQ9 


3A16FC 


LDA 


Y1281 


;IND. DELETE 


5E0C 


FE01 


CPI 


Y001 


;HOVE BEF. DELETE 


SEOE 


C22D5E 


iNZ 


Y125D 


;N0 NORM DELETE 


5E11 


3A0tFC 


LDA 


Y1101 


;ABS ROW # FROfi 


5E14 


2112FC 


LXI 


H^Y1208 


;ABS ROW U MOVE 


5E17 


BE 


CKP 


K 


;EQUAL 


5E18 


C2295E 


JNZ 


Y125B 


;N0 NORM DELETE 



ADRESS 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 



20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 
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5E1B 


CD9100 


5E1E 


EB 


5E1F 


2219FC 


5E22 


EB 


5E23 


CA2D5E 


5E26 


C32D5E 


5E29 




5E29 


2A19FC 


5E2C 


EB 


5E2D 




5E2D 


AF 


5E2E 


4F 


5E2F 


3298FF 


5E32 


CODBOO 


5E35 


3A98FF 


5E38 


FEOO 


5E3A 


CO 


5E3B 


D5 


5E3C 


CDD369 


5E3F 


DA635E 


5E42 


3AF3FF 


5E45 


E604 


5E47 


CA525E 


5E4A 


3A14FC 


5E4D 


FE01 


5E4F 


CA555E 


5E52 




5E52 


CDAB5D 


5E5 5 




5E55 


D1 


5E56 


C09D5D 


5E59 


2219FC 


5E5C 


AF 


5E5D 


3214FC 


5E60 


3E20 


5E62 


C9 


5E63 




5E63 


D1 


5E64 


CD9D50 


5E67 


2219FC 


5E6A 


2101FC 


5E6D 


34 


5E6E 


3E01 


5E70 


3214FC 


5E73 


3E20 


5E75 


C9 



5E76 




5E76 


2A0EFC 


5E79 


22C0FF 


5E7C 


CDB400 


5E7F 




5E7F 


3A01FC 


5E82 


2112FC 



Y125B 



Y125D 



Y125E 



Y125F 



Y125H 



CALL NTCHR 

XCH6 

SHLO YZ010 

KCH6 

JZ Y125D 

JMP Y125D 



EQU 

LHLD 

XCHG 

EQU 

XRA 

MOV 

STA 

CALL 

LDA 

CPI 

RNZ 

PUSH 

CALL 

JC 

LDA 

ANI 

JZ 

LBA 

CPI 

JZ 

EQU 

CALL 

EQU 

POP 

CALL 

SHLD 

XRA 

STA 

»VI 

RET 

EQU 

POP 

CALL 

SHLD 

LXI 

INR 

«VI 

STA 

MVI 

RET 



YZ010 

$ 

A 

€,A 

CKSAV 

CD100 

CHSAV 

NULL 



D 

BY930 

Y125H 

MFL62 

ATOLF 

Y125E 

Y1251 

Y001 

Y125F 

$ 

BY124 

$ 

D 

BY123 

YZ010 

A 

Y1251 

A^ABLNK 



$ 

D 

BY123 

YZ010 

H,Y1101 

M 

A,1 

Y1251 

A^ABLNK 
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;6ET NEXT CHAR. ADR D-E 
;STORE NEXT ADR. 
; DEL, CHAR. 



;DEL.CHAR. 
;CLEAR 

;SAVE AREA 
;DEL. CHARACTER 
;RECALL DEL. CHAR- 
;IT IS A E L 
;N0 RETURN A= CHAR. 

;SAVE D-E REG. 
;CHECK LINE 
;N0 EMPTY 
;AUT0 
^LINEFEED 
;N0 

;AND FIRST 
;LINE DELETE ? 
;YES NO DELETE 

;DEL.LINE 



;REST0RE D-E 
;6ET NEXT CHAR, 
;AND STORE IT 



ADR. 



;REST. D-E 
;6ET.NEXT CHAR. 
;AND STORE IT 
;INCR. 
;ABS.FR0M ADR. 



ADR. 



1^****** *********** ************** ****** 



INSERT CHARACTER 



J************************************* 



BY126 



Y126A 



EQU 

LHLD 

SHLD 

CALL 

EQU 

LDA 

LXI 



$ 

Y1201 

CRROW 

RADDR 

$ 

Y1101 

H,Y1208 



;RESTORE 
;ROW AND 



;ABS, 
,-ABS, 



ROW 
ROy 



LAST 

COLUMN 



POINTER 
POINTER 



FROM 
MOVE 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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5E85 


BE 




CMP 


n 


;CALCULATE 


5E86 


CA8F5E 




41 


Y126E 


;FROH EQUAL MOVE 


5E89 


F2C15E 




JP 


Yt26J 


;FROR GT MOVE 


5E8C 


C3095F 




JKP 


Y126T 


;FROM LT MOVE 






# 


FROM EQUAL 


MOVE 


5E8F 




Y126E 


EQU 


$ 




5E8F 


CDB700 




CALL 


IRPON 




5E92 


3A10FC 




LDA 


Y1204 


•INSERT 


5E95 


CD7F6A 




CALL 


CRINS 


;CHARACTER 


5E98 


CDBDOO 




CALL 


IHOFF 




5E9B 


3A16FC 




LDA 


Y1281 


•CHECK 


5E9E 


FE02 




CPI 


Y002 


;IND- FROM 


5EA0 


C2AB5E 




JNZ 


Y126F 


;N0 FROM GT MOVE 


5EA3 


3A13FC 




LDA 


Y1209 


;CBECK 


5EA6 


FE01 




CPI 


Y001 


;IND. FIRST INSERT 


5EA8 


C2BB5E 




JNZ 


Y1266 


;N0 NOT ADVANCE 


5EAB 




Y126F 


EQU 


$ 




5EAB 


3A15FC 




LDA 


Y1262 




5EAE 


FE01 




CPI 


Y001 




5EB0 


CABB5E 




JZ 


Yl26e 




5EB3 


26FF 




MVI 


H^BASEH 




5EB5 


C0E400 




CALL 


CRADV 


;ADVANCE CURSOR 


5EB8 


CDB400 




CALL 


RADDR 




5 EBB 




Y126G 


EQU 


$ 




5EBB 


CD365F 




CALL 


BY127 


;CHECK AND UPDATE R 


5EBE 


C32B5F 




JHP 


Y126X 


;60 TO EXIT 










FROM 


6R MOVE 


5EC1 




Y126J 


EQU 


$ 




5EC1 


3AF3FF 




LDA 


MFLG2 




5EC4 


E604 




ANI 


ATOLF 




5EC6 


C2D85E 




JNZ 


Y126L 


;AUTO LINEFEED 


5EC9 




Y126K 


EQU 


$ 




5EC9 


3A01FC 




LDA 


Y1101 


;CALC. 


5ECC 


2112FC 




LXI 


H,Y1208 


;ROW# FROM-MOVE 


5ECF 


96 




SUB 


K 




5ED0 


FE01 




CPI 


Y001 


;MOVE ONE BEF. FROM 


5ED2 


CAE75E 




JZ 


Y126M 


;YES 


5 EDS 


C 3 EASE 




J«P 


Y126P 


;N0 


5ED8 




Y126L 


EQU 


$ 




5ED8 


3A01FC 




LDA 


Y1101 




5EDB 


2112FC 




LXI 


H,Y1208 




5EDE 


96 




SUB 


M 




SEDF 


FE02 




CPI 


Y002 


;HOVE TWO BEF. FROM 


5EE1 


C2C95E 




JNZ 


Y126K 


;N0 


5EE4 


COEISF 




CALL 


BY130 


;YES INSERT LINE 


5EE7 




Y126W 


EQU 


$ 




5EE7 


CBE15F 




CALL 


BY 130 


;INSERT. LINE 


5EEA 




Y126P 


EQU 


$ 




5EEA 


CDB700 




CALL 


IRPON 




5EE& 


3A10FC 




LDA 


Y1204 


; INSERT 


5EF0 


C07F6A 




CALL 


CRINS 


;CHAR. 


5EF3 


3At5FC 




LDA 


Y1262 




5EF6 


FE01 




CPI 


Y001 




5EF8 


CA035F 




JZ 


Y126U 




5EFB 


CDBDOO 




CALL 


IKOFF 




5EFE 


26FF 




MVI 


H^BASEH 




5F00 


CDE400 




CALL 


CRADV 


;ADVANCE CURSOR 



RADDR NZ 
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5F03 
5F03 
5F06 



5F09 
5F09 
5F0C 
5F0F 
5F12 
5F15 
5F18 
5F1A 
5F1D 
5F1F 
5F22 
5F22 
5F25 
5F28 



5F2B 
5F2B 
5F2E 
5F31 
5F32 
5F35 



5F36 

5F36 
5F39 
5F3C 
5F3D 
5F40 
5F43 
5F43 
5F46 
5F49 



CDB400 
C3285F 



CDB700 

3A10FC 

C07F6A 

CDBDOO 

3At5FC 

FE01 

CA225F 

26FF 

CDE400 

CDB400 
CD365F 
C32e5F 



2AC0FF 

220EFC 

AF 

3215FC 

C9 



3A0eFC 

21C0FF 

96 

F2435F 

CD4A5F 

2AC0FF 
220EFC 
C9 



5F4A 




5F4A 


3A01FC 


5F4D 


2112FC 


5F50 


96 


5F51 


FA585F 


5F54 


2101FC 


5F57 


34 


5F58 




5F58 


2112FC 


5F5B 


34 


5F5C 


C9 



Y126U 



EQU $ 
CALL RADDR 
JKP Y126X 



Y126T 



Y126V 



EQU 

CALL 

LDA 

CALL 

CALL 

LDA 

CPI 

JZ 

«VI 

CALL 

EQU 

CALL 

CALL 

JMP 



FROM LT 

$ 

IRPON 

Y1204 

CRINS 

IHOFF 

Y1262 

Y001 

Y126V 

H,BASEH 

CRADV 

$ 

RADDR 

BY127 

Y126X 



MOVE 

;INSERT 
;CHARACTER 



Y126X 



;ADVAMCE CURSOR 



;CHECK AND UPDATE ROW POINTER 
;60 TO EXIT 



;SAVE LAST 
;ROW AND COLUMN 



EQU $ 
LHLD CRROU 
SHLD Y1201 
XRA A 
STA Y1262 
RET 



INCREMENT POINTER AFTER INSERT LINE 
******************************* 



BY127 



Y127Z 



EQU 


$ 


;CALCULATE 

FOR INSERT POINTER 


LDA 


Y1201 


;NEXT ROW 


LXl 


H,CRROU 


;AFTER INSERT 


SUB 


M 


;CHARACTER 


JP 


Y127Z 


;N0 EXIT 


CALL 


Yt27D 




EQU 


$ 




LHLD 


CRROW 




SHLD 


Y1201 




RET 




; RETURN 



INCR. POINTER BLOCK WOVE 
CALL FROM CRINS 



Y1270 



Y127E 



EQU 


$ 




LDA 


Y1101 




LXI 


H,Y1208 




SUB 


M 




JM 


Y127E 




LXI 


H,Y1101 


;INCR. 


INR 


M 


;FROM ROW POINTER 


EQU 


$ 




LXI 


H,Y1208 


;INCR. 


INR 


M 


;MOVE ROW POINTER 


RET 







*************************************** 
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5F5D 
5F5D 
5F5E 
5F61 
5F64 
5F67 
5F68 
5F68 

5F6E 
5F71 
5F74 
5F75 
5F78 
5F7B 
5F7B 
5F7E 
5F80 

5F81 
5F81 
5F84 
5F87 
5F88 
5F8B 
5F8B 
5F8E 
5F91 
5F94 
5F95 
5F98 
5F9B 
5F9B 
5F9E 
5FA1 
5FA2 
5 FAS 
5FA8 
5FAB 
5FAC 
5FAF 
5FB2 
5FB2 
5FB4 
5FB7 
5FBA 
5FBA 
5FBC 
5FBF 
5FC2 
5FC2 
5FC5 
5FC8 
5FC9 
5FCC 
5FCF 



AF 

3216FC 

3A01FC 

2112FC 

96 

CA815F 

F2BA5F 

2112FC 

3A03FC 

96 

CAC25F 

FABA5F 

CD1470 

3E01 

C9 



3A03FC 
2112FC 
96 
CA9B5F 

C37B5F 

3A0FFC 

2102FC 

96 

FAB25F 

C37B5F 

3A0FFC 

2102FC 

96 

FAB25F 

3A04FC 

210FFC 

96 

FAB ASF 

C37B5F 

3E01 

3216FC 

C3CF5F 

3EQ2 

3216FC 

C3CF5F 

3A04FC 

210FFC 

96 

FABA5F 

C37B5F 



CHECK ROW 
FOR HOVE 



4^ COLUMN 
A=1 ERROR 
; A=0 OK 

• It************************************* 



BY128 



Y128E 



Y128F 



Y128G 



Y128H 



Y128J 



Y128K 



Y128M 



Y128Z 



EQU 

XRA 

STA 

LDA 

LXI 

SUB 

iZ 

JP 

LXI 
LDA 
SUB 
JZ 

jn 

EGU 
CALL 
MVI 
RET 

EQU 

LDA 

LXI 

SUB 

JZ 

EQU 

JMP 

LDA 

LXI 

SUB 

JK 

JMP 

EQU 

LDA 

LXI 

SUB 

JM 

LDA 

LXI 

SUB 

JM 

JHP 

EQU 

nvi 

STA 

JMP 

EQU 

HVI 

STA 

JMP 

EQU 

LDA 

LXI 

SUB 

JM 

JMP 

EQU 



$ 

A 

Y1281 

Y1101 

H,¥1208 

M 

Y128F 

Y128K 

H^Y1208 

Y1103 

M 

Y128H 

Y128K 

$ 

ZBELL 

A,1 



$ 

Y1103 

H^Y1208 

M 

Y128H 

$ 

Y128E 

Y12D2 

H,Y1102 

K 

Y128J 

Y128E 

$ 

Y1202 

H,Y1102 

« 

Y128J 

Y1104 

H,Y1202 

H 

Y128K 

Y128E 

$ 

A,1 

Y1281 

Y128Z 

$ 

A, 2 

Y1281 

Y128Z 

$ 

Y1104 

H^Y1202 

M 

Y128K 

Y128E 

$ 



;ROU 
;ROW 



FROM 
MOVE 



;ZERO=CHECK 
;POS.=OK TO 

;ROW MOVE 



COLUMN 
MOVE 



FROM 



;CHECK COL. TO 

;NEG. OK TO MOVE IND=02 

;ERROR 

; RETURN ERROR 

;ROW FROM EQ ROW MOVE 

;ROW TO 

;ROW MOVE 

;CALC, 

;EQ -FROM-TO-MOVE- 



; COLUMN MOVE 
;COLUMN FROM 

;NE6.= OK IND.= 01 
;NEG. ERROR 
;CHECK COLUMN 
;COLUMN MOVE 
;CGLUMN FROM 

;0K MOVE < FROM 
;C0LUMN TO 
;COLUHN MOVE 

;0K TO < MOVE 
;ERROR 

;IND=t 
;MOVE < FROM 



;IND '2 
;MOVE > FROM 



;COLUMN TO 



;NEG. OK IND.=02 
;POS. ERROR 
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5FCF 
5FD0 



AF 
C9 



XRA A ;CLEAR A REG 

RET ;RETURN 

*************************************** 

; DEL. LINE AFTER BLOCK ROVE 



5FD1 




BY 129 


EQU 


$ 




5FD1 


CDE763 




CALL 


By430 


;DEL. CHAR. 


5FD4 


C2B15F 




JNZ 


BY129 


;LOOP 


5FD7 


CDD56 9 




CALL 


BY930 




5F0A 


D8 




RC 






5FDB 


D5 




PUSH 


D 




5FDC 


CDAB5B 




CALL 


BY124 


;DEL.LINE 


5FDF 


D1 




POP 


D 




5FE0 


C9 




RET 











; INS 


LINE 


CALL FROM BY120 






; MOVE ROW M ONE OR TWO ROW 






; BEFORE 1 


FROM ROW. 


5FE1 




BY130 


EQU 


$ 


5FE1 


2 AC OFF 




LHLD 


CRROW 


5FE4 


220EFC 




SHLD 


Y1201 


5FE7 


3AC0FF 




LOA 


CRROW 


5FEA 


FE16 




CPI 


MXROW-1 


5FEC 


C2FC5F 




JNZ 


Y130D 


5FEF 


CDCFOO 




CALL 


RLLUP 


5FF2 


CDEIOO 




CALL 


LNINS 


5FF5 


210EFC 




LXI 


H,Y1201 


5FF8 


35 




DCR 


M 


5FF9 


C3036 




JMP 


Y1306 


5FFC 




Y130J> 


EQU 


$ 


5FFC 


21C0FF 




LXI 


H^CRROW 


5FFF 


34 




INR 


M 


6000 


CDE100 




CALL 


LNINS 


6003 




Y130G 


EQU 


$ 


6003 


2101FC 




LXI 


H,Y1101 


6006 


34 




INR 


M 


6007 


2A0EFC 




LHLD 


Y1201 


60 OA 


22C0FF 




SHLD 


CRROW 


600D 




Y130Z 


EQU 


$ 


600D 


C9 




RET 








*************************************** 








INSERT CHARACTER WITH WRAP AROUND 






;************************************** 


600E 




BY 202 


EQU 


$ 


600E 


3AF8FF 




LDA 


CFL6S ;GET COMMON FLAGS 


6011 


2F 




CMA 




6012 


E6 02 




ANI 


ISWRP ;WRAP ENABLED 


6014 


CA2260 




JZ 


Y202H ;YES TERM. INSERT 


6017 




Y2 02D 


EQU 


$ ;N0 


6017 


CDB700 




CALL 


IRPON ;SET WRAP ON 


601A 


3E02 




MVI 


A^BYINS 


601C 


CD556A 




CALL 


SBFL1 


601F 


C34260 




JMP 


Y202Z 


6022 




Y202H 


EQU 


$ 


6022 


2AC0FF 




LHLD 


CRROW ;SAVE LAST 
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20 
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FILE 


20 


FILE 


20 
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20 
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20 
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20 
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20 
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20 
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20 
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6025 


E5 




6026 


3ABEFF 




6029 


32C1FF 




602C 


CDB400 




602F 


C23660 




6032 


1A 




6033 


CD8059 




6036 




Y20 


6036 


El 




6037 


22COFF 




603A 


CDBDOO 




603D 


3EFD 




603F 


CD5B6A 




6042 




Y2Q 


6042 


C9 





605C 



VER 2.4 



PUSH 

LD-A 

STA 

CALL 

JNZ 

LDAX 

CALL 

EQU 

POP 

SHLD 

CALL 

MVI 

CALL 

EQU 

RET 



H 
RTMSN 
CRCOL 
RADDR 
Y202X 
D 

Y100B 
$ 

H 

CRROW 
IHOFF 

A,377Q-BYINS 
CBFL1 
$ 

;EXIT 



ERRORS = PAGE 59 



INSERT POINT 



;SET COLUMN TO RIGHT MAR6 

;6ET CHAR. ADRESS 
;N0 EXIT 

;6ET. CHAR. IN A 
;EXECUTE GANZW0RTRE6EL 

;L0AD LAST POINTER 



GANZW0RTRE6EL AN 
RECHTEM BILDSCHIRMRAND 



6043 




BY203 


EQU 


$ 


6043 


2AC0FF 




LHLD 


CRROW 


6046 


E5 




PUSH 


H 


6047 


3ABEFF 




LDA 


RTM6N 


6 04A 


32C1FF 




STA 


CRCOL 


6040 


CDB400 




CALL 


RADDR 


6050 


C25760 




JNZ 


Y203D 


6053 


1A 




LOAX 


D 


6054 


CD8059 




CALL 


YlOOB 


6057 




Y203D 


EQU 


$ 


6057 


El 




POP 


H 


6058 


22C0FF 




SHLD 


CRROW 


6C5B 




Y203Z 


EQU 


$ 


605B 


C9 




RET 





;****LOESCHEN ABSATZ ************ ******** 
BY215 EQU $ 



-*************************************** 



605C 


CD6D6A 




CALL 


CKSLR 




605F 


CA1470 




JZ 


ZBELL 




6062 


2AC0FF 




LHLD 


CRROW 




6065 


E5 




PUSH 


H 




6066 


CDB400 




CALL 


RADDR 


;6ET. CHAR- ADR. 


6069 




Y215D 


EQU 


$ 




6069 


EB 




XCH6 






6 06A 


2219FC 




SHLD 


YZ010 


;STORE CHAR, ADR. 


606D 




Y215H 


EQU 


$ 




606D 


CDE763 




CALL 


BY430 


;DEL. CHAR. 


6070 


CA8F60 




JZ 


Y2t5K 


;LINE LINK 


6 073 


E6F0 




ANI 


YOFO 




6075 


FEAO 




CPI 


Y0240 


•ALTERN. CHAR. ON 


6077 


C 26 D6 




JNZ 


Y215H 


;N0 


607A 


CDE763 




CALL 


BY430 


;DEL. CHAR. 


607D 


CA8F6Q 




JZ 


Y215K 


;LINE LINK 


6080 


D5 




PUSH 


D 


;SAVE REG 
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6081 
6082 
6085 
6088 

6089 
608C 
60 8F 
608F 
6092 
6095 
6095 
6098 
609B 
6Q9C 
609D 
60A0 
60A3 
60A3 
60A6 
60A6 
60A9 
60AC 
6 OAF 
60B0 
60B3 
60B3 
6066 
60B7 
6 0B7 
60BA 
60BD 
60BF 
60C1 
60C4 
60C7 
60CA 
60CB 
60CC 
60CF 
60D2 

60 D3 



60D6 
60D6 
60D9 
60DC 
60DE 
60E0 
60E3 
60E6 
60E9 
60EA 
60EB 
60EE 
60F1 



47 

213152 
CD6069 
D1 

CAFB60 
C36D60 

CDD369 
0AA36Q 

CDE700 

2AC9FF 

7E 

87 

CAF860 

C3A660 

CD8B0O 

C0C900 
CDB400 
C29560 

EB 
2219FC 

2A19FC 

EB 

CD9100 

C29560 

E6F0 

FEAO 

C2B760 

CD9100 

C29560 

B5 

47 

213152 

CD6069 

£)1 

C2B760 



CDE763 

CAF860 

E6F0 

FEAO 

C2D660 

Cf)E763 

CAF860 

D5 

47 

213152 

CD6069 

D1 



Y215K 



Y215L 



Y215N 
Y215P 



Y215R 



Y215T 



MOV B,A 
LXI H,BYT06 
CALL BY900 
POP D 



JKP 

EQU 

CALL 

JC 

EQU 

CALL 

LHLO 

MOV 

ORA 

JZ 

JMP 

EQU 

CALL 

EQU 

CALL 

CALL 

JNZ 

XCH6 

SHLD 

EQU 

LHLD 

XCH6 

EQU 

CALL 

JNZ 

ANI 

CPI 

JNZ 

CALL 

JNZ 

PUSH 

MOV 

LXI 

CALL 

POP 



Y215X 

Y215H 

$ 

BY930 

Y215N 

$ 

LNDEL 

LTLIN 

A^W 

A 

Y215W 

Y215P 

$ 

LFEED 

$ 

CRRET 

RADDR 

Y215L 

YZ010 

$ 

YZ010 

$ 

NTCHR 

Y215L 

YOFO 

Y0240 

Y215T 

NTCHR 

Y215L 

D 

B,A 

H^BYT06 

BY900 

D 



ERRORS = PAGE 60 



;CHAR. TO B-REG 
;6ET TAB ADR. A8SATZ/ZENTR. 
;CHECK TAB Z= FOUND 
;REST0RE REG. 



;DEL. NEXT CHAR> 



;YES DEL. LINE 



;LFEED 

;RETURN 

;GET CHAR. ADR. 

;CHAR. NOT EXIST 

;SAVE 

;NEU CHAR. ADR. 

;SAVE 
;ADR. 

;AND GET CHAR. 
;DEL. LINE 



;ALT 

;M0 

;GET 

;LIN 

;SAV 

;CHA 

;GET 

;CHE 

;RES 



CHAR. ON 

NEXT CHAR. 

E LINK 

E REG 

R. TO B-REG 

TAB ADR. ABSATZ/ZENTR. 
CK TAB Z= FOUND 
TORE REG. 



JNZ Y215T 



ABSATZENDE IN ANT 



Y215U 



60F2 CAF860 



EQU 

CALL 

JZ 

ANI 

CPI 

JNZ 

CALL 

JZ 

PUSH 

MOV 

LXI 

CALL 

POP 

JZ 



$ 

BY43Q 

Y215W 

YOFO 

Y0240 

Y215U 

BY43D 

Y215W 

D 

B,A 

H,BYT06 

BY900 

D 

Y215W 



;N0 

. LINE 

;DEL. CHAR. 

;DT IS ALT. ON 

;N0 

;YES 

;IT NEXT CHAR. 

;SAVE REG 

;CHAR. TO B-REG 

;GET TAB ADR- ABSATZ/ZENTR. 

; CHECK TAB Z= FOUND 

;RESTORE REG, 

;YES 
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FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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60F5 
60 F8 
60F8 
60FB 
60 FB 
60FC 
60FF 
6DFF 



6100 
6100 
6103 
6105 
6107 
61 OA 
610D 



6110 
6110 
6113 
6116 
6116 
6119 
611C 
611C 
611F 
611F 
6120 
6123 
6125 
6128 
61 2B 
61 2C 
612F 
6132 
6134 
6137 



6138 
6138 
61 3B 
613D 
6140 

6143 
6146 

6149 



C3D660 

CDE700 

El 
22C0FF 

C9 



CD8B00 

3E0D 

OEOD 

329CFF 

3257FE 

C33C51 



21C45 3 
C31F61 

21CB53 
C31F61 

21D253 

E5 

C&B700 

3E20 

3289FF 

CD0201 

El 

CD2F6A 

3A67FE 

E602 

CCBOOO 

C9 



CDB700 
3E20 
3289FF 
CD0201 

21D953 
CD2F6A 

3A67FE 



Y215W 



Y215X 



Y215Z 



JPIP Y215U 

E6U $ 

CALL LNDEL 

EQU $ 

POP H 

SHLD CRROW 

Eau $ 

RET 



ERRORS = PAGE 61 

;N0 

;YES DEL. LINE 

; RETURN 



r **************************** ********* 
t*** *********************** *********** 

RETURN LINEFEED 

r******************* ******* *********** 



BY225 



ECtU 

CALL 

MVI 

MVI 

STA 

STA 

JRP 



$ 

LFEED 

A,CR 

C^CR 

CARIN 

BYOOC 

EXBYM 



;LINEFEEB 



> * 



*************************************** 

FETT CURSIV NORMAL * 

*************************************** 



BY227 



BY228 



BY 
BY 



229 
230 



EQU 

LXI 

J HP 

EQU 

LXI 

J MP 

^W 

LXI 

EQU 

PUSH 

CALL 

MVI 

STA 

CALL 

POP 

CALL 

LDA 

ANI 

CZ 

RET 



$ 

H^YMS20 

BY230 

$ 

H,YHS21 

BY230 

$ 

H^YMS22 

$ 

H 

IRPON 

A^ABLNK 

DCHAR 

DSPLA 

H 

BY950 

BYFL1 

BYINS 

IHOFF 



;HALBFETT 



;CURSIV 



;NOR»AL 



; INSERT 



;CHAR. STRING 

;INSERT 

;SET? 

;N0 



******************************** 



DEF HASKE 
******************************** 

BY226 EQU $ 

CALL IRPON 
MVI A,ABLNK 
STA DCHAR 
CALL DSPLA 

LXI H,YMS23 
CALL 8Y950 



LDA BYFL1 



;BISY ROUT. FLAG 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 



FILE 20 
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FILE 20 

FILE 20 

FILE 20 

614C E602 ANI BYINS ;INSERT SET. ? FILE 20 

614E CCBDOO CZ IHOFF ;N0 INSERT OFF FILE 20 

; FILE 20 

6151 3E04 MVI A,BYBEF FILE 20 

6153 C0556A CALL SBFLI FILE 20 

6156 3E3C MVI A, 60 FILE 20 

6158 3217FC STA Y0801 FILE 20 

615B C9 RET FILE 20 

; FILE 20 

FILE 20 







^**************«i************************# FILE 20 

;* VERARBEITUNG ABSATZENOE UND * FILE 20 

;* ZENTRIERBEFEHLE * FILE 20 

;•*«-************************************* FILE 20 

615C BY270 EQU $ FILE 20 

615C 3A57FE LDA BYOOC ;SAVE FILE 20 

615F E67F ANI Y07F ;INPUT FILE 20 

6161 3257FE STA BYOOC ;CODE FILE 20 

6164 CDB700 CALL IRPON ; FILE 20 

6167 CDB355 CALL BY005 FILE 20 

616A Y270D EQU $ FILE 20 

616A CDF600 CALL RADR4 ;LOCATE CHAR. ADRESS FILE 20 

616D CA7661 JZ Y270S ;CHAR. FOUND FILE 20 

6170 CD0F62 CALL BY271 ;N0 CHAR. GO TO NEXT LINE FILE 20 

6173 C38E61 JMP Y270L ; FILE 20 

6176 Y270G E6U $ FILE 20 

6176 1A LDAX FILE 20 

6177 E6F0 ANI YOFO FILE 20 
6179 FE80 CPI Y080 FILE 20 
617B CC9100 CZ NTCHR FILE 20 
617E EB XCH6 ;SAVE FILE 20 
617F 22t9FC SHLD YZ010 ;CHAR. DEL ADRESS FILE 20 
6182 CD1C62 CALL BY272 ;CHECK FOR ZENTR- AND FILE 20 

; 60 TO NEXT LINE FILE 20 

FILE 20 



t 



; UEBERTRAGE ZEICHEN FILE 20 

; FILE 20 

6185 CDB700 CALL IRPON FILE 20 

6188 Y270K EQU $ FILE 20 

6188 C06962 CALL BY273 ;«OVE CHAR. FILE 20 

618B C28861 JNZ Y270K ;NEXT FILE 20 

FILE 20 

; EINFUEGEN ABSATZANFANG FILE 20 

618E Y270L EQU $ FILE 20 

618E CDC900 CALL CRRET ;RETURN FILE 20 

6191 3A67FE LDA BYFL1 ;FLAG FILE 20 

6194 E602 ANI BYINS ;INSERT ? FILE 20 

6196 CCBDOO CZ IHOFF ;N0 FILE 20 

6199 3A57FE LDA BYOOC ; FILE 20 

619C FE7D CPI Y0175 ;ABSATZ GEN. FILE 20 

619E CAB361 JZ Y270R ;YES FILE 20 

61A1 CDB400 CALL RADDR ;6ET CHAR. FILE 20 

61A4 C20362 JNZ Y270X ;NOT FOUND FILE 20 

61A7 1A LDAX D ; FILE 20 

61A8 FE20 CPI ABLNK ; FILE 20 

61AA C20362 JNZ Y270X ;NOT BLANK FILE 20 

61AD CDDBOO call CDIOO ;DEL. BLANK FILE 20 

61B0 C30362 JMP Y270X ; FILE 20 

61B3 Y270M EQU $ FILE 20 

61B3 C0B400 CALL RADDR ;FIRST CHAR. FILE 20 
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61B6 
61 B9 
61BA 
61BC 
61BF 
61C2 
61C5 
61 C8 
61 C9 
61 CB 
61CE 
6101 
61 D1 
61 D3 
61 06 
61 D9 
61 D9 
61DB 
61 DE 
61 El 
61 E4 
61 E7 
61E7 
61 EA 
61 EC 
61 EF 
61F2 
61 F5 
61F5 
61F8 
61 FA 

61 FD 

62 00 
62 03 
62 03 
6206 
62 09 
62 OB 
620E 
62 OE 



62 OF 
620F 
6212 
6215 
6218 
621B 



621C 
621C 
621F 
62 20 



C2D161 

1A 

FE20 

C2E761 

CDE400 

C0B400 

C2D961 

1A 

FE20 

C2F561 

C3D961 

3E20 

3289FF 

CD0201 

3E5F 

3289FF 

CD0201 

CDE400 

C30362 

CDB700 

3E20 

3289FF 

CD0201 

CDE400 

CD8700 

3E5F 

3289FF 

CD0201 

CDE400 

CD4360 
3A67FE 
E602 
CCBDOO 

C9 



CDC 900 
CD8B00 
CD796A 
C48B00 
C9 



Y270Q 



Y270R 



Y270S 



Y270T 



Y270X 



Y270Z 



JNZ 

LDAX 

CPI 

JNZ 

CALL 

CALL 

JNZ 

LDAX 

CPI 

JNZ 

J«P 

EQU 

«VI 

STA 

CALL 

EQU 

«VI 

STA 

CALL 

CALL 

JMP 

EQU 

CALL 

HVI 

STA 

CALL 

CALL 

EQU 

CALL 

MVI 

STA 

CALL 

CALL 

EQU 

CALL 

LDA 

ANI 

CZ 

EQU 

RET 



Y270Q 

D 

ABLNK 

Y270S 

CRADV 

RADDR 

Y270R 

D 

ABLNK 

Y270T 

Y270R 

$ 

A, ABLNK 

DCHAR 

DSPLA 

$ 

A,Y0137 

DCHAR 

DSPLA 

CRADV 

Y270X 

$ 

IRPON 

A, ABLNK 

DCHAR 

DSPLA 

CRADV 

$ 

IRPON 

A,Y0137 

DCHAR 

DSPLA 

CRADV 

$ 

BY203 

BYFL1 

BYINS 

IHOFF 

t 



ERRORS = PAGE 63 



;NOT FOUND 

;BLANK ? 

;N0 

;YES 

;SEC. CHAR, 

;NOT FOUND 

■BLANK ? 

;N0 

;YES 

;BLANK 



;ABSATZ ANFANG 



;INSERT 
;BLANK 



;ABSATZ ANFANG 



;EXEC 6ANZW0RTREGEL 



;**** 



•* 



6 

;♦ c 

BY271 



************************************ 
TO NEXT PROCESS LINE * 

ALL FROM BY270 * 

************************************ 



EQU 

CALL 

CALL 

CALL 

CNZ 

RET 



$ 

CRRET 
LFEED 
CKALF 
LFEED 



; RETURN 

;LFEED 

;AUTO LINEFEED? 

;YES 



;**********************************♦***** 
;* PRUEFEN RESTZEILE AUF ZENTRIERBEF. * 
;* CALL FROM BY270 * 

;**************************************** 



BY272 



2A19FC 

EB 
1A 



EQU $ 
LHLD YZ010 
XCHG 
LDAX D 



;SAVE GET ADRESS 
;GET 1. CHAR. 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 
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6221 
6224 
6224 
6227 
622A 
62 2A 
622C 
622F 
6231 
62 34 
6236 
6239 
623A 
623C 
623E 

6241 
6244 
6247 
62 48 
6249 
624A 
624D 
6250 
6251 
62 52 
6253 

6256 
6259 
625C 
625F 

6262 
6265 
6265 
6268 
6268 



6269 
6269 
626C 
626F 
6272 
6273 
6276 
6279 
627C 
627F 
6282 
62 85 
6288 
628B 
628E 



C32A62 

CD9100 
C26562 

FECC 

CA6562 

FEC3 

C A6 56 2 

FECE 

CA6562 

47 

E6F0 

FEAO 

C22462 

CD9100 

C26562 

D5 

47 

C5 

213152 

CD6 069 

CI 

D1 

78 

C22A6 2 

CD0F62 
CDEIOO 
CD796A 
C4E100 

C36862 

CD0F62 

C9 



C0E763 

321BFC 

CA9E62 

B7 

F2A46 2 

321CFC 

CDE763 

321BFC 

CA9562 

CD7F6A 

3A1CFC 

321DFC 

CD7F6A 

CDE400 



Y272B 



Y2726 



Y272K 



Y272Z 



JKP 


Y2726 


# 


ESU 


$ 




CALL 


NTCHR 


;6ET N. CHAR. 


JNZ 


Y272K 


;LINE LINK 


EQU 


$ 




CPI 


EOL 


;END LINE 


JZ 


Y272K 




CPI 


FILL 


;FILL CHAR. 


JZ 


Y272K 




CPI 


EOP 


;END PAGE 


JZ 


Y272K 




MOV 


B^A 


;SAVE CHAR. 


AMI 


YOFD 


;IS CHAR- 


CPI 


YOAO 


;A ALT. ON? 


JNZ 


Y272D 


;N0 NEXT CHAR. 


CALL 


NTCHR 


;YES GET NEXT CHAR 


JNZ 


Y272K 


;LINE LINK 


PUSH 


D 


;SAVE CHAR. POINTER 


MOV 


B,A 




PUSH 


B 


•SAVE CHAR. 


LXI 


H,BYT06 


;CHECK 


CALL 


BY900 


;TAP 


POP 


B 


; RECALL 


POP 


D 


;;POINTER 


MOV 


A,B 


;AND CHAR. 


JNZ 


Y2726 


;NOT FOUND 


CALL 


BY271 


;G0 TO NEXT LINE 


CALL 


LNINS 


; INSERT LINE 


CALL 


CKALF 


;AUTO LINEFEED? 


CNZ 


LNINS 


;¥ES 


JMP 


Y272Z 


;EXIT 


EQU 


$ 




CALL 


BY 2 71 


;G0 TO NEXT LINE 


EQU 


$ 




RET 




;EXIT 



********** 

* DEL. AN 

* EXIT 
********** 

BY273 EQU 
CALL 
STA 
JZ 
ORA 
JP 
STA 
CALL 
STA 
JZ 

CALL 
LDA 
STA 
CALL 
CALL 



****************************** 
D INS CHAR. YZ010=DEL ADR. * 

Z=END LINE * 
****************************** 

$ 

BY430 ;DEL. CHAR. 

YZ100 ;DEL. CHAR- 

Y273K ;END LINE 

A ;IS IT CONT. CHAR.? 

Y273M ;N0 

YZ101 ;YES SAVE IT 

BY430 ;DEL. NEXT CHAR. 

YZ100 ;DEL. CHAR. 

Y273H ;END LINE 

CRINS ; 

YZ101 ;GET CNT. CHAR. 

YZ102 ;LAST CHAR. 

CRINS ;AND INSERT 

CRADV ;ADVANCE CURSOR 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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6291 
6291 
6293 
6294 
6295 
6295 
6298 
62 9B 
629E 
629E 
629F 
62A2 
62 A3 
62A4 
62A4 
62A6 
62A9 
62AC 
62AE 
62B1 
62B1 
62B4 
62B7 
62BA 
62 BD 



62C0 
62C0 
62C3 
62C6 
62 C6 
62C9 
62C9 



62CA 
62CA 
62CD 
62D0 
62D3 
62 06 
62D7 
62D8 
62DB 
62DE 
62DF 
62DF 
62 E2 



3EFF 

B7 

C9 

3A1CFC 
CD7F6A 
CDE400 

AF 

321DFC 
B7 
C9 

FE20 

C2B162 

3A10FC 

FE20 

CA9162 

3A1BFC 
321DFC 
CD7F6A 
CDE400 
C39162 



CD736A 
CA1470 

CD7000 

C9 



C&6D6A 

CA1470 

3ABFFF 

21C1FF 

46 

88 

CADF62 

CD6D00 

C9 

CDE700 
C9 



Y273D 



Y273H 



Y273K 



Y273K 



Y273P 



EQU 


$ 




HVI 


A,377Q 




ORA 


A 


;SET NZ 


RET 




;AND RETURN 


EQU 


S 




LDA 


YZ101 


;INSERT 


CALL 


CRINS 


;CONTR- 


CALL 


CRADV 


;CHAR. 


EQU 


$ 


;ADCANCE 


XRA 


A 


;SET ZERO 


STA 


YZ102 


;LAST CHAR. 


ORA 


A 


;AND FLAG 


RET 




;EXIT 


EQU 


$ 




CPI 


A6LNK 


;CHAR. BLANK 


JNZ 


Y273P 


;N0 


LDA 


YZ102 


;YES LAST CHAR 


CPI 


ABLNK 


; BLANK? 


JZ 


Y273D 


;YES NEXT CHAR 


EQU 


S 




L&A 


YZ100 


;SAVE NEW CHAR. 


STA 


YZ102 


;T0 LAST CHAR. 


CALL 


CRINS 


;INSERT 


CALL 


CRADV 


;ADVANC£ 


JMP 


Y2730 


; RETURN NZ 



• It **************** ***************** 

: LOESCHEN DISPLAY 

;****************************♦***** 

BY312 EQU $ 

CALL CKSH2 

JZ ZBELL 
Y312D EQU $ 

CALL CEARS ;CLEAR- DISPLAY 
Y312Z EQU $ 

RET ;EXIT 

; DEL. LINE 

^ *************************** ******* 

BY315 EQU $ 

CALL CKSLR 

aZ ZBELL 

LDA LTH6N 

LXI H^CRCOL 

HOV B,M 

CMP B 

JZ Y315D 

CALL CEARL 

RET 
Y315D EQU $ 

CALL LNDEL 

RET 



^ *************************** ******* 



;0N LEFT RAR6. 



ROLL DOWN/UP WITH 
CURSOR ON TEXT 



62E3 



J********************************** 



BY323 EQU $ 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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62E3 


CDBAOO 




CALL 


RADDR 




62 E6 


COCFOO 




CALL 


RLLUP 


;ROLL UP 


62E9 


C3F262 




J«P 


Y324Z 




62EC 




BY324 


Eau 


$ 




62 EC 


CDB400 




CALL 


RADDR 




62EF 


CDFCOO 




CALL 


RLLDN 


;ROLL DOWN 


62F2 




Y324Z 


EQU 


$ 




62F2 


3AC7FF 




LDA 


LTROW 


;ROLL ROW # 


62F5 


32C0FF 




STA 


CRROW 


;T0 CURRENT ROW 


62F8 


C9 




RET 







NEXT PAGE 



62F9 




BY32! 


> EQU 


$ 


62F9 


CD6D6A 




CALL 


CKSLR 


62FC 


C23C51 




JNZ 


EXBYM 


62FF 


C3CE55 




JMP 


BY020 



;SHIFT L-R 

;YES = NEXT PAGE 

;N0 = WEITERSCHREIBSTELLE 



PREV PAGE 



6302 




BY326 


EQU $ 




6302 


CD6D6A 




CALL CKSLR 


; SHIFT L-R 


63 05 


C23C51 




JNZ EXBYK 


;YES PREV PAGE 


63 08 


C36100 




JHP CURPH 


;CURSOR POINTER MORE UP 



'■kit******************************** 



HANC. AND ABSATZENDE 
*************** 







; CHECK 


ftLTERN^NEN 






;******************** 


63 OB 




BY410 EQU 


$ 


6308 


4F 


MOV 


C,A 


63 OC 


AF 


XRA 


A 


63 OD 


B1 


ORA 


C 


630E 


F26863 


JP 


Y410K 


6311 


321BFC 


STA 


YZ100 


6314 


CD055E 


CALL 


BY125 


6317 


321CFC 


STA 


YZ101 


631A 


3210FC 


STA 


Y1204 


631D 


3E01 


WVl 


A,1 


631F 


3215FC 


STA 


Y1262 


6322 


CD765E 


CALL 


BY126 


6325 


3A1BFC 


LDA 


YZ100 


6328 


3210FC 


STA 


Y12 04 


63 20 


CD765E 


CALL 


BY126 


632E 


3A1BFC 


LDA 


YZ100 


63 31 


E6F0 


ANI 


YOFO 


6333 


FEAO 


CPI 


Y0240 


6335 


C26D63 


JNZ 


Y410N 


6338 


3A1CFC 


LDA 


YZ101 


63 3B 


47 


MOV 


B^A 


63 3C 


213152 


LXI 


H,BYT06 


633F 


CD6069 


CALL 


8Y900 


6342 


C26D63 


JNZ 


Y410N 



;CHECK 

;CODE 

;IT IS ASCI 



;SAVE. ALT. CHAR. 
;DEL. NEXT CHAR 
;SAVE ASCI CHAR. 

;SET IND. 
;ALT./ENH. CODE 
;INSERT- CHAR. 



;INSERT ALT/ENH. ON 
;ALT/ENH. CHAAR. 

;ALT./0R ENH. 
;ENH. 

;RECALL. CHAR. CODE 

;CHECK ABSTZEND 

;CHAR. 

; NO 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
FILE 
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FILE 
FILE 
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FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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6345 
6348 
634A 
634D 
6350 
6353 
6353 
6356 
6359 
63 5C 
635F 
6361 
6362 
6365 

6368 
6368 
6369 
636B 
636C 
636D 
636D 
6370 
6372 
63 75 
6378 
6378 
6379 
637B 



CD055E 

FE83 

C25363 

321BFC 

CD055E 

321 OFC 

CB765E 

CD7C63 

3A18FC 

FE83 

4F 

CA6863 

C36D63 



AF 

F600 
79 
C9 

3A1CFC 
FE7D 
C27863 
3211FC 

AF 

F6FF 

C9 



637C 




637C 


3AC1FF 


637F 


21BFFF 


6382 


BE 


6383 


CACA63 


6386 




6386 


3AC1FF 


6389 


21BEFF 


638C 


BE 


638D 


CABE63 


6390 


CDB400 


6393 


C2BE63 


6396 


1A 


63 97 


FE20 


6399 


C2A263 


639C 


CDC300 


639F 


C38663 


63A2 




63A2 


3ABEFF 


63A5 


21C1FF 


63 A8 


96 


63A9 


321 DFC 


63 AC 




63AC 


3E20 


63AE 


3210FC 


63B1 


CD765E 



Y410D 



Y410K 



Y410N 



Y410P 



CALL 

CPI 

JNZ 

STA 

CALL 

EQU 

STA 

CALL 

CALL 

LDA 

CPI 

HOV 

JZ 

JMP 

EQU 
XRA 
OR I 

»ov 

RET 
EQU 
LDA 
CPI 
JNZ 
STA 
EQU 
XRA 
ORI 
RET 



BY125 

Y02 03 

Y410D 

YZ100 

BY125 

$ 

Y1204 

BY126 

BY420 

YZ100 

Y0203 

C,A 

Y410K 

Y4tON 

$ 
A 

OB 
A,C 

$ 

YZ101 

Y0175 

Y410P 

Y1207 

$ 

A 

377Q 



ERRORS = PAGE 67 



;DEL. NEXT CHAR. 
;DEF BLOCK END ? 

;SAVE BLOCK END CHAR. 



;INS 

;ALT. OUT 

;EXEC. ABSATZENDE 

;I>EF BLOCK END ? 

;END? 

;YES 



;ZERO 



;NOT ZERO 



^****^** *********************************** 

; ABSATZENDE CHARACTER 
****************************************** 



BY420 



Y420D 



Y4206 



Y420K 



EQU 

LDA 

LXI 

CMP 

il 

EQU 

LDA 

LXI 

CMP 

JZ 

CALL 

JNZ 

LDAX 

CPI 

JNZ 

CALL 

J MP 

EQU 

LDA 

LXI 

SUB 

STA 

EQU 

RVI 

STA 

CALL 



$ 

CRCOL 
H,LTMGN 
M 
Y420X 
$ 

CRCOL 
H^RTMGN 
M 

Y42 0M 
RADDR 
Y420M 

D 

ABLNK 

Y4206 

CURPR 

Y420D 

$ 

RTM6N 

H, CRCOL 

M 

YZ102 

$ 

A, ABLNK 

Y1204 

BY126 



;CRCOL 
;LEFT MARG. 
;YES 



;DISP. POSITION EXIST, 
;N0 

;6ET 

;CURRENT CHARACTER 
;IT IS A BLANK? 
;CURSOR POINTER RIGHT 
;NEXT. CHAR. 



CALC- DIFFERENZ 



;LOAD BLANK 
;T0 INSERT 
; INSERT 



FILE 
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FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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63B4 
63 87 
6388 
63BB 
63BE 
63BE 
63C1 
63 C4 
63C4 
63C7 
63CA 
63 CA 
63CD 
63CF 
63D2 
63 D5 
63D8 
63 DO 
63DB 
63DE 
63E1 
63E1 
63E3 
63E6 



63 E7 
63E7 
63EA 
63EA 
63 EB 
63 EC 
63ED 
63 FO 
63F3 
63 F6 
63 F8 
63F9 



63 FA 
63 FA 
63 FD 

63 FE 
63FF 

64 02 
64 02 
64 05 
6407 
64 OA 
64 OA 



211DFC 
35 

C2AC63 
C3CA63 

CDC900 
CD8B00 

CBE100 
CD365F 

3AF3FF 

E604 

CAE163 

C01701 

C2DB63 

CDE100 

CD8B00 
CD365F 

3E20 

3211FC 

C9 



2A19FC 

EB 

AF 

4F 

3298FF 

CDDBOO 

3A98FF 

FEOO 

C8 

CO 



2A19FC 
EB 
1A 
C30A64 

C0910a 
06 FF 
C21D64 

47 



Y420W 



Y420P 



Y420X 



Y420Y 



Y420Z 



LXI 


H,YZ102 


;DECR- 


DCR 


M 


;POINTER 


JNZ 


Y420K 


;LOAD 


JKP 


Y420X 


;EXIT 


EQU 


$ 




CALL 


CRRET 


; RETURN 


CALL 


LFEED 


;LINEFEED 


EQU 


$ 




CALL 


LNINS 




CALL 


BY127 




EQU 


$ 




LDA 


MFLG2 


# 


ANI 


ATOLF 


;AUTO LINEFEED? 


JZ 


Y420Z 


;N0 


CALL 


RADRI 


;EXIST LINE 


JNZ 


Y420Y 


;N0 


CALL 


LNINS 


;YES INSERT 


EQU 


$ 




CALL 


LFEED 


;LINEFEED 


CALL 


BY127 


;INCR. LINE POINTER 


Eau 


$ 




KVI 


A^ABLNK 




STA 


Y1207 




RET 







***************************************** 
DEL. CHAR. 

YZ010 = CHAR. ADR Z = LINE LINK 

NZ = CHAR. 



BY430 
Y430D 



EQU $ 
LHLD Y2010 
EQU $ 
XCHG 
XRA A 
MOV C,A 
STA CHSAV 
CALL CD100 
LDA CHSAV 
CPI NULL 
RZ 
RNZ 



;CHAR. ADR, 



i 



;DEL. CHAR. 



;LINE LINK 
;CHAR. EXIST 



;****************************************** 

; CHECK LINE FOR CHARACTER 

; Z=CHAR. 

; NZ = NO OR BLANK 

^**** ******************************* ******* 

BY440 EQU $ 

LHLD YZ010 

XCHG 

LDAX D 

JWP Y440E 

Y440D EQU $ 

CALL NTCHR 

MVI B,YOFF 

JNZ Y440K 

Y440E EQU % 

nov B^A 



;LINE LINK 
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640B FECC 

6400 CA1D64 

6410 FEC3 

6412 CA1D64 

6415 FE20 

6417 CA0264 

641A C32364 

641D Y440K 

641D F6FF 

641F 78 

64 20 C 3266 4 

6423 Y440X 

6423 AF 

64 24 F600 

6426 Y440Z 

64 26 C9 



CPI 


EOL 




JZ 


Y440K 




CPI 


FILL 




JZ 


Y44 0K 




CPI 


ABLNK 




JZ 


Y4400 


;LOOP 


JRP 


V440X 


;CHAR. 


EQU 


$ 




ORI 


377Q 




KOV 


A,B 




JKP 


Y44DZ 




EQU 


$ 




XRA 


A 




ORI 


OB 




EQU 


$ 




RET 







i 
r 

f 
I 



**********************^*^** ****** *********** 
BYGET CONV. CODE OR 

DEL. BLANKS AFTER GET 

ENTRY D-E BUFF. STATUS 



LOCAL MODE 

SVOUT = OUTPUT DEVICE(S) 
SVINP = INPUT DEVICE 

; IPDEV = CURRENT INPUT DEV. 
; OTDEV a CURRENT OUTPUT DEV. 

;****************************************** 
BYGET EQU $ 

NOV B,A ;SAVE 

PUSH B ; 

PUSH H ;RE6 

CALL BY570 

POP H ;RECALL 

POP B ;RE6 

MOV A,B ; 
;******************** ********************** 

YGETB EaU $ 

CALL STJKP ;PERFOR« IND J«P 

; AND GET DATA 

6433 D8 RC ;ERROR RETURN ON CARRY 

;;************** ***«r* ************** *********** 

LDAX D ; INPUT FROM 

ANI DSPLY ;DISPLAY? 

JZ Y6ETD ;N0 

LDA OTDEV ;0UTPUT 

ANI LTCTU+R6CTU 

JNZ BY500 ;CTU = DELETE BLANKS 

LDA OTDEV ;OUTPUT 

ANI PINTR ;PRINTER/ 

JNZ BY550 ;YES 

JMP YGETZ 

644D YGETD EQU $ 



64 27 




6427 


47 


6428 


C5 


6429 


E5 


642A 


CDEB66 


64 2D 


El 


642E 


CI 


64 2F 


78 


6430 




64 30 


CD4028 



64 34 


1A 


6435 


E604 


64 37 


CA4D64 


643A 


3A4DFF 


643D 


E6 03 


64 3F 


C21365 


64 42 


3A4DFF 


6445 


E6 08 


6447 


C27166 


644A 


C36164 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 
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644D 


1A 




LDAX 


D 


;INPUT FRO« 


644E 


E607 




ANI 


LTCTU+RGCTU+DSPLY 


6450 


CA5E64 




JZ 


YGET6 


;N0 


6453 


3A4DFF 




LDA 


OTDEV 




64 56 


E6D8 




ANI 


PINTR 




64 58 


C27166 




JNZ 


BY550 




645B 


C36164 




J«P 


YGETZ 


;N0 


645 E 




YGET6 


EQU 


$ 




64 5 E 


C36164 


» 


JMP 


YGETZ 




6461 




TSETZ 


EQU 


$ 




6461 


C9 




RET 










;************************************* 






; DATACOKM 


ODER KASSETTEN EINGABE 






ZEICHEN 


AUF DEM 


BILDSCHIRM 








DARSTELLEN 










INTERPRET. 


INPUT CHARACTER 






************* c= INPUT CHARACTER *** 


6462 




BYINT 


EQU 


$ 




6462 


3A67FE 




LDA 


BYFL1 




6465 


E6 20 




ANI 


BYMF2 




6467 


CAE864 




JZ 


YINTP 




64 6A 


3A55FE 




LDA 


BY INI 


;IND. 2. CHAR. 


64 6D 


FE01 




CPI 


Y001 


;SET 


64 6 F 


CAA664 




JZ 


YINTK 




6472 


FE02 




CPI 


Y002 


•YES 


6474 


CACC64 




JZ 


YINTM 




6477 


FE03 




CPI 


Y003 




64 79 


CAD364 




JZ 


YINTN 




64 7C 




YINTF 


EQU 


$ 




647C 


79 




MOV 


A,C 


;6ET CHAR. IN A 


64 70 


FEOE 




CPI 


SO 


; SHIFT OUT 


64 7F 


C2E864 




JNZ 


YIMTP 


;N0 


64 82 


3E01 




KVI 


A,1 


;YES SET IND. 


6484 


3255FE 




STA 


BYIN1 


;F0R SECOND BYTE 


6487 


C3E864 


f 


JRP 


YINTP 




648A 




• 

YINTH 


EQU 


$ 




64 8A 


3A54FE 




LDA 


BYIN2 


;ABSATZ. 


648D 


FE7D 




CPI 


Y0175 


;ENDE ? 


64 8F 


CA9F64 




JZ 


YINTJ 




64 92 


79 




MOV 


A^C 


;CHAR. 


64 93 


FE20 




CPI 


ABLNK 


;BLANK? 


6495 


C29F64 




JNZ 


YINTJ 


;N0 


6498 


AF 




XRA 


A 


;CLEAR 


6499 


3255FE 




STA 


BYIN1 


;INO. 


64 9C 


C3EB64 




JWP 


YINTR 


;AND EXIT 


649F 




YINTJ 


EQU 


$ 




649F 


AF 




XRA 


A 


;CLEAR 


64A0 


3255FE 




STA 


BYINl 


;IN&. AND 


64 A3 


C37C64 


# 


JHP 


YINTF 


;PROC. NEXT CHAR 


64 A6 




• 

YINTK 


EQU 


$ 




64A6 


79 




MOV 


A,C 


;GET CHAR. 


64 A7 


FE7D 




CPI 


Y0175 


;ABSATZ ENDE 
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64A9 


CAC264 




JZ 


YIMTL 




64 AC 


FE3C 




CPI 


Y074 


;ZENTR. L 


64 AE 


CAC264 




JZ 


YINTL 




64B1 


FE3D 




CPI 


YD75 


;ZENTR. KITTE 


64 B3 


CAC264 




JZ 


YINTL 




64 B6 


FE3E 




CPI 


Y076 


;ZENTR- R 


64B8 


CAC264 




JZ 


YINTL 




64 BB 


AF 




XRA 


A 


;N0 RESET 


64BC 


3255FE 




STA 


BYIN1 


;INDIKATOR 


64BF 


C37C64 




JRP 


YINTF 




64 C2 




YINTL 


EQU 


% 




64C2 


3254FE 




STA 


BYIN2 




64C5 


2155FE 




LXI 


H^BYINI 


;SET IND. 


64C8 


34 




INR 


K 


;T0 2 


64 C9 


C37C64 




JHP 


YINTF 




64 CC 




YINTR 


EQU 


$ 




64CC 


2155FE 




LXI 


H^BYINI 




64CF 


34 




INR 


« 




64 DO 


C37C64 




JWP 


YINTF 




64 D3 




YINTN 


ECitU 


$ 




64 D3 


41 




»0V 


B^C 




64 D4 


C5 




PUSH 


B 




64D5 


CDC900 




CALL 


CRRET 




64 D8 


Ct»8B00 




CALL 


LFEED 




64 DB 


3AF3FF 




LDA 


MFL62 




64DE 


E604 




ANI 


ATOLF 




64 EO 


C48600 




CNZ 


LFEED 




64 E3 


CI 




POP 


B 




64 E4 


48 




MOV 


C^B 




64E5 


C38A6 4 




JMP 


YINTH 




64 E8 




YINTP 


EQU 


$ 




64 E8 


CD8200 




CALL 


CINTO 




64 EB 




YINTR 


EQU 


$ 




64 EB 


C9 


# 
* 


RET 







64 EC 
64 EC 
64EF 

64F2 
64 F5 
64F7 
64 F8 
64 F9 

64 FC 
64FC 
64FF 
6501 

65 02 
65 04 
6505 
6506 



INPUT ENTER KEY 

FORMAT MODE = PAGE MODE SET 

NON FORM. MODE = LINE MODE SET 



BYRTD 



CD1A01 
C2FC6 4 

21F3FF 

3E0A 

B6 

77 

C30665 



21F3FF 

3E02 

B6 

3E08 

A6 

77 



EQU 

CALL 

JNZ 



$ 

CKFMS 

YRTDD 



;FORMAT MODE? 
;YES 



LXI H,HFLG2 ;TERMINAL MODE FLAG 

MVI A^BKHDE+PGSTR 

ORA M ;SET BLOCK MODE 

MOV M^A ;AND PAGE STRAP 

JMP YRTDH 



YRTDD 



EQU 
LXI 

MVI 
ORA 
MVI 
ANA 
MOV 



H,MFLG2 
A^BKMDE 
M 
A^PGSTR 

M 
K,A 



;TERMINAL MODE 
;SET BLOCK MODE 

;CLEAR PAGE MODE 



YRTDH EQU $ 



FILE 
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65 06 


3E98 


65 08 


0E98 


650A 


329CFF 


65 OD 


3257FE 


6510 


C33C51 



FILE 20 
VER 2.4 ERRORS = PAGE 72 FILE 20 

FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 

; FILE 20 

;***************************************** FILE 20 

FILE 20 



«VI 


A,230Q 


MVI 


C,230Q 


STA 


CARIN 


STA 


BYOOC 


JHP 


EXBYM 



t 



; DELETE BLANKS FILE 20 

6513 BY500 EQU $ FILE 20 

6513 CD016A CALL BY940 ;GET BUFF. ADR. FILE 20 

6516 C28565 JNZ Y500Z ; FILE 20 

H-L = DEST. POINTER FILE 20 

B = SOURCE POINTER FILE 20 

; FILE 20 

FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
#2 FILE 20 

FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
\ FILE 20 

FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



65 19 


D5 




PUSH 


D 




651A 


1100FB 




LXI 


D,YDBUF 




651D 




Y500D 


EQU 


$ 




651D 


1A 




LDAX 


D 


;GET. CHAR. 


651E 


FEOD 




CPI 


CR 




6520 


CA4165 




JZ 


Y500K 




6523 


FEOA 




CPI 


LF 




6525 


CA5E65 




JZ 


Y500H 




65 28 


3262FE 




STA 


BYZ01 


;SAVE CHAR, 


652B 


FE20 




CPI 


ABLNK 


• 


65 2D 


CA6 46 5 




JZ 


Y500N 




65 30 




Y500G 


EQU 


$ 




6530 


3A62FE 




LDA 


BYZ01 




6533 


32 60FE 




STA 


BYZ02 


;SAVE CHAR. 


65 36 




Y500H 


EQU 


$ 




65 36 


77 




KOV 


M,A 




6537 


13 




INX 


D 


;INCR. LA 


65 38 


23 




INX 


H 


;#1 AND #2 


6539 


OC 




INR 


C 


;COUNTER #2 


65 3A 


05 




DCR 


B 


;DECR. COUNTE 


65 3B 


CA7165 




JZ 


Y500R 


;BUFF. EMPTY 


653E 


C31D65 




JKP 


Y500D 




6541 




Y500K 


EQU 


$ 




6541 


3A6 0FE 




LDA 


BYZ02 


;LAST. CHAR. 


6544 


FE20 




CPI 


ABLNK 


; BLANK? 


6546 


CA5965 




JZ 


Y500L 


;YES 


6549 


FE80 




CPI 


Y02 00 




6548 


CA5965 




JZ 


Y500L 




654E 


3E20 




WVI 


A, ABLNK 


;N0 


6550 


3262FE 




STA 


BYZ01 


1 


65 53 


3260FE 




STA 


BYZ02 




6556 


77 




HOV 


M,A 


INSERT BLANK 


6557 


23 




INX 


H 


;AND #2 


6558 


OC 




INR 


C 


;IN€R. COUNT 


6559 




Y500L 


EQU 


$ 




65 59 


3E0D 




MVI 


A,CR 


;LOAD CR 


65 5B 


C33665 




J«P 


Y500H 




65 5 E 




Y500« 


EQU 


$ 




655E 


77 




MOV 


M,A 




655F 


23 




INX 


H 




6560 


OC 




INR 


C 




6561 


C37165 




JRP 


Y500R 




6564 




Y500N 


EQU 


$ 
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6564 


3A60FE 


Lt>A 


BYZ02 


6567 


FE20 


CPI 


ABLNK 


6569 


C23065 


JNZ 


Y5006 


656C 


13 


I NX 


D 


656D 


05 


OCR 


B 


656E 


C31D65 


J«P 


Y500D 


6571 


Y500R EQU 


$ 


6571 


D1 


POP 


D 


6572 


C&1D6A 


CALL 


BY945 


65 75 


CD8865 


CALL 


BY501 


6578 


C28565 


JNZ 


Y500Z 



ERRORS = PAGE 73 



;IS LAST CHARACTER 

;A BLANK ? 

;N0 EXEC. NORWAL 

;YES INCR- LA #1 

;DECR. COUNTER 

;N0 GET NEXT CHARACTER 



;NEW LENGTH 



65 7B 


AF 


657C 


12 


65 7D 


3E04 


65 7F 


324EFF 


65 82 


C35E28 


6585 




65 85 


37 


65 86 


3F 


65 87 


C9 



65 88 




6588 


AF 


6589 


6F 


65 8A 




65 8A 


7E 


65 8B 


FEOA 


658D 


CAA565 


6590 


FEOD 


65 92 


CAA565 


65 95 


FE20 


6597 


CA9065 


659A 


C3A765 


659D 




659D 


23 


65 9E 


OD 


65 9F 


CAA565 


65 A2 


C38A65 


65A5 




65A5 


AF 


65 A6 


C9 



; RELEASE BUFFER AND GET 
; NEXT RECORD 

XRA A 
STAX D 

MVI A,DSPLY 
STA IPDEV 
JRP GETIO 

Y500Z EQU $ 
STC 

CMC 
RET 



PRUEFEN DATENBLOCK 
EXIT NZ = DATA 

Z = NO DATA 



ODER BLANK 



; CALL 
; EXIT 



FROH 8Y500 
H-L - ADRESSE 
C = COUNTER 



BY501 



Y501B 



Y501D 



Y501E 



Eau 

XRA 

MOV 

EQU 

MOV 

CPI 

JZ 

CPI 

JZ 

CPI 

JZ 

JMP 

EQU 

INX 

DCR 

JZ 

JMP 

EQU 

XRA 

RET 



$ 

A 

L,A 

$ 

A,« 

LF 

Y501E 

CR 

Y501E 

ABLNK 

Y501D 

Y5D1F 

$ 

H 

C 

Y501E 

Y501B 

$ 

A 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 



20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 
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65 A7 
65A7 
65A9 



65 AA 
65AA 
65AB 
65AE 



Y501F 



F6FF 
C9 



E6U 
OR I 
RET 



$ 

3770 



**** 



BY510 



13 

CD016A 

C26E66 



************************************* 
CONVERT. CODE 

VORCODE + ASCII TO 8-BIT 
**************** ********************* 

EQU $ 

;CALL FROM Y1002 10 
;GET BUFF. ADR. 



INX D 
CALL BY940 
JNZ Y510Z 



MODUL 



H-L = DEST. POINTER 
B = SOURCE POINTER 



65B1 


D5 




PUSH 


D 




6582 


1100FB 




LXI 


D^YDBUF 




65B5 


3A62FE 




LDA 


BYZ01 


;LAST CHAR. 


6588 


FEFD 




CPI 


375Q 


;ABSATZ ENOE? 


65BA 


C2DB65 




JNZ 


Y510D 


;N0 


65BD 




Y510A 


EQU 


$ 




6580 


1A 




LDAX 


D 


;6ET CHAR. 


65 BE 


3262FE 




STA 


BYZ01 


;BLANK? 


65C1 


FE20 




CPI 


ABLNK 




65C3 


CAD365 




JZ 


Y510B 


;YES 


65C6 


FE5F 




CPI 


137Q 


;GEVIERT 


65C8 


C2DF65 




JNZ 


Y510E 


;N0 


65CB 


13 




INX 


D 


;YES 


65CC 


05 




DCR 


B 




65CD 


CA4D66 




JZ 


Y510R 


;BUFF EMPTY 


65 DO 


C3DB65 




JMP 


Y510D 


;NEXT CHAR. 


65D3 




Y510B 


EQU 


$ 




65D3 


13 




INX 


D 


;INCR. ADR 


65 D4 


05 




DCR 


B 


;DECR. COUNTER 


65D5 


CA4D66 




JZ 


Y510R 


;BYFF EMPTY 


65D8 


C3BD65 




JKP 


Y510A 


;N0 GET NEXT CHAR 


65 DB 




Y510D 


EQU 


$ 




65 DB 


1A 




LDAX 


D 


;GET CHAR. 


65 DC 


3262FE 




STA 


BYZOl 


;AND SAVE IT 


65DF 




Y510E 


EQU 


S 




65DF 


FEOD 




CPI 


CR 




65 E1 


CAF765 




JZ 


Y510K 




65 E4 


FEOA 




CPI 


LF 




65 E6 


CAF76 5 




JZ 


Y510K 




65 E9 


B7 




ORA 


A 


;IT IS ASCII 


65 EA 


F23766 




JP 


Y510P 


;YES 


65 ED 




Y510H 


EQU 


$ 




65ED 


3A62FE 




LDA 


BYZOl 


;GET CHAR. 


65F0 


E6F0 




ANI 


YOFO 


; CLEAR. BIT 0-3 


65F2 


FEAO 




CPI 


YOAO 


;IT IS ALT. CHAR, 


65 F4 


CAFF65 




JZ 


Y510M 


;YES 


65 F7 




Y510K 


EQU 


$ 




65 F7 


13 




INX 


D 


;N0 INCR. LA #1 


65F8 


05 




DCR 


B 


;DECR, COUNT. #1 


65 F9 


CA4D66 




JZ 


Y510R 


;BUFFER EMPTY 


65 FC 


C3DB65 




JRP 


Y510D 


;N0 NEXT CHAR. 


65FF 




Y510P! 


EQU 


$ 





FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
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20 
20 
20 
20 
20 
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INX 

OCR 

JZ 

L&AX 

STA 

ORA 



LDA 
ORI 
STA 

CPI 

JZ 

CPI 

JZ 

CPI 

JNZ 



65 FF 


13 


66 00 


05 


66 01 


CA4D66 


6604 


1A 


6605 


3262FE 


66 08 


B7 


6609 


FAE065 


660c 


3A62FE 


66 OF 


F680 


6611 


3262FE 


6614 


FEBC 


6616 


CA2366 


6619 


FEBD 


661B 


CA2366 


661E 


FEBE 


66 20 


C23766 


6623 




6623 


C 3376 6 



6626 
6626 
6628 
6629 
662C 

662F 
6631 
66 32 
6633 
6634 



6637 
6637 
663A 
663B 
663C 
663D 
663E 
663F 



6642 
6645 
6647 
664A 

6640 

664D 
6650 
6651 
6653 



Y510N 



EQU 
JKP 



D 

B 

V510R 

D 

BYZ01 

A 

Y510H 

ASCII 

BYZ01 
NSIGN 
BYZ01 

274Q 

Y510N 

275Q 

Y510M 

276Q 

Y510P 

$ 

Y510P 



ERRORS = PAGE 75 



;DECR. LA #1 
;&ECR- COUNT, ft 
;BUFF EMPTY 
;6ET CHARACTER 
;AND SAVE IT 
;IT IS ASCII 
;N0 CHECK ALT. 
AFTER ALT- CHAR. 

;6ET CHAR. 
;SET BIT 7 
;AND STORE IT 

;ZENTR. LINKS 

;2ENTR. MITTE 

;ZENTR. RECHTS 

; N.- SATZ 



; 1. SATZ. BENDEN MIT ZENTR. 



Y5100 



3E2B 
B9 

CA3766 
FA 3766 

3E2E 

77 

23 

OC 

C32666 



3A62FE 

77 

13 

23 

OC 

05 

CA4D66 



3A62FE 
FEFD 
CA4D66 
C30B65 



C36A66 
79 

FEOO 
CA6A66 



Y510P 



Y510R 



EQU 
MVI 
CMP 
JZ 

JM 

MVI 
MOV 
INX 
INR 
JMP 



EQU 
LDA 
MOV 
INX 
INX 
INR 
DCR 
JZ 



LDA 
CPI 
JZ 
JKP 

EQU 

JMP 
MOV 
CPI 
JZ 



$ 

A^43 

C 

Y510P 

Y510P 

A^PRIOD 

M,A 

H 

C 

Y5100 



$ 

BYZ01 

M^A 

D 

H 

C 

6 

Y510R 



BYZ01 
375Q 
Y510R 
Y510D 



Y510V 
A,C 
OB 
Y510V 



;OUTPUT COUNTER 
;43 ZEICHEN 

;YES EQUAL 
;N0 GR. 43 

;M0VE DEC- PUNKT 
;T0 BUFFER 
;INCR. ADR. 
;INCR. COUNTER 



;6ET. CHAR 
; STORE CHAR. 
;INCR. LA ft 1 
;AND #2 

;INCREMEMT COUNT. S 
;DECR- COUNTER # 1 
;BUFFER EMPTY 



;LAST CHAR. 
;ABSATZ-ENDE 
;YES TERM. LINE 
;N0 NEXT CHAR. 



;N0 



FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 

FILE 



20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 
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6656 




6656 


3E2B 


6658 


B9 


6659 


CA6666 


665C 


FA6A66 


665F 


362E 


6661 


23 


6662 


OC 


6663 


C35666 


6666 




6666 


36BC 


6668 


23 


6669 


OC 


666A 




666A 


D1 


666B 


CD1D6A 


666E 




666E 


37 


666F 


3F 


6670 


C9 



6671 
6671 
6674 



6677 
6678 
667B 
667B 
667C 
667F 
6680 
6683 
6683 
6686 
6688 
66 8A 

668D 
668E 
668F 
6692 
6693 
6696 

6697 
669A 
66 98 
669C 
669D 
66A0 
66A1 
66 A4 
66A7 



CD 016 A 
C2E866 



D5 
1100FB 

1A 

3262FE 
87 
F2BF66 

3A62FE 
E6F0 
FEAO 
C2B766 

13 

05 

CAE466 

1A 

3262FE 

B7 

FA8366 

D5 

E5 

C5 

3A62FE 

47 

217D52 

CDAD69 

C2B166 



Y510S 



Y510T 



EftU 
HVI 
C»P 
Jl 

Jf^ 

«VI 
I NX 
INR 
JMP 
E6U 
HVI 
I NX 
INR 



$ 

A, 43 

C 

ySIOT 

Y510V 

M^PRIOD 

H 

C 

Y510S 

$ 

M,274Q 

H 

C 



;ZENT. LINKS 



Y510V EQU $ 

POP D 
CALL BY945 
Y510Z EQU $ 
STC 
CMC 
RET 



;* 



BY 



*********************************** 

MODIF. DATEN TO PRINT OUT 
*********************************** 



550 



EQU $ 
CALL BY940 
JNZ Y550I 



Y550D 



Y550H 



PUSH 

LXI 

EQU 

LDAX 

STA 

ORA 

JP 

EQU 

LDA 

ANI 

CPI 

J HI 

INX 

DCR 

JZ 

LDAX 

STA 

ORA 

JM 

PUSH 

PUSH 

PUSH 

LDA 

ROV 

LXI 

CALL 

JNZ 



D^YDBUF 

$ 

D 

BYZ01 

A 

Y550K 

$ 

BYZ01 

YOFO 

Y0240 

Y550J 

D 

B 

Y550R 

D 

BYZ01 

A 

Y550H 

D 

H 

B 

BYZ01 

B,A 

H^BYTH 

BY 910 

Y550I 



;6ET buff. ADR. 

'h-L = DEST. POINTER 
B = SOURCE POINTER 



;GET CHAR. 

•ASCII ? 
;YES 



;ALT. CHAR. ON ? 
;N0 

;YES 

;INCR. LA #1 AND 

;DECR COUNT #1 

;6ET 
;NEXT 



;N0 ASCII 

;SAVE 

;REGISTER 



CHAR. 



;GET INPUT 

;CODE 

;TAB 

; CHECK TRANS 

;NOT FOUND 



TAB 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
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66AA 


78 




MOV 


A,B 


;MOVE NEW CODE 


66AB 


3262FE 




STA 


BYZ01 


;T0 Z-FELD 


66AE 


C3D366 




JKP 


Y550L 




66B1 




Y550I 


EQU 


$ 




66B1 


CI 




POP 


B 


;RECALL 


66B2 


El 




POP 


H 


;RE6ISTER 


66B3 


D1 




POP 


D 


;AND GO TO NEXT 


66B4 


C38366 


• 
9 


JKP 


Y550H 


;GET 


66B7 




Y550J 


EQU 


$ 




66B7 


13 




INX 


D 


;INCR. LA #1 AND 


66B8 


05 




DCR 


B 


;DECR. COUNT. #1 


66B9 


CAE466 




JZ 


Y550R 


;BUFF. EMPTY 


66BC 


C37B66 




JWP 


Y550D 


;N0 GET NEXT CHAR. 


66BF 




Y550K 


EQU 


$ 




66BF 


&5 


# 


PUSH 


D 


;SAVE 


66C0 


E5 




PUSH 


H 


;REGISTER 


66C1 


C5 




PUSH 


B 




66C2 


3A62FE 




LDA 


BYZ01 


;GET INPUT 


66C5 


47 




HOV 


B,A 


;CODE 


66 C 6 


216F52 




LXI 


H^BYTIO 


;TAB ADR. 


66C9 


CDAD69 




CALL 


BY910 


;CHECK TRANSL. TAB 


66CC 


C2D366 




iHl 


Y550L 


;NOT FOUND 


66CF 


78 




WOV 


A,B 


;MOVE NEW CODE TO 


66 DO 


3262FE 




STA 


BYZ01 


;Z-FELD 


66D3 




Y550L 


EQU 


$ 




66 D3 


CI 




POP 


B 


;RECALL. 


66 &4 


E1 




POP 


H 


;RE6ISTER 


66 D5 


D1 




POP 


D 




66D6 




Y550M 


EQU 


$ 




66D6 


3A62FE 




LDA 


BYZ01 




66 D9 


77 




MOV 


M,A 




66 DA 


13 




INX 


D 


;MOVE 


66DB 


23 




INX 


H 


;CHAR. 


66DC 


OC 




INR 


C 




66 DD 


05 




DCR 


B 




66 DE 


CAE466 




JZ 


Y550R 


;BUFF. EMPTY 


66E1 


C37B66 




JMP 


Y550D 


;6ET NEXT CHAR. 


66E4 




Y550R 


EQU 


$ 




66 E4 


D1 




POP 


D 




66 E5 


CD106A 




CALL 


BY945 




66E8 




Y550Z 


EQU 


$ 




66 E8 


37 




STC 






66 E9 


3F 




CMC 






66 EA 


C9 




RET 







l-k-k-tilfk* -kit *******************;** ******** 

: PRINT LINEFEED IF ATOLF PRESSED * 
************************************** 



66EB 


BY 


570 EQU 


$ 




66EB 


3A4DFF 


LDA 


OTDEV 




66EE 


E608 


ANI 


PINTR 




66F0 


CA0E67 


JZ 


Y570Z 




66F3 


3AF3FF 


LDA 


MFLG2 


;AUTO 


66F6 


E6 04 


ANI 


ATOLF 


;LINEFEED 


66 F8 


CA0E67 


JZ 


Y570Z 


;N0 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
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FILE 20 
FILE 20 
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FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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66 FB 


AF 


XRA 


A 




66FC 


67 


MOV 


H,A 




66 FD 


3C 


INR 


A 




66 FE 


32DCFF 


STA 


IPSGN 




6701 


2E01 


HVI 


L,1 


;SET 


6703 


22D5FF 


SHLD 


ICCNT 


;LINE COUNTER 


6706 


3E01 


HVI 


A.1 


;SET LINEFEED 


67 08 


32D8FF 


STA 


ICTTP 


;TYPE 


6708 


C&7328 


CALL 


CLPRT 


;EXEC.FUNKTION 


67 OE 


Y570Z EQU 


$ 




670E 


37 


STC 




f 


670F 


3F 


CMC 




i 


6710 


C9 


RET 







;************************************ 









READ KEY PRESSED 


6711 




• 

BY 600 


EQU $ 


6711 


CD6D6A 




CALL CKSLR 


6714 


CA1470 




JZ ZBELL 


6717 


3E20 




MVI A,B¥MF2 


6719 


CB556A 




CALL SBFL1 



CHECK FOR ENOUGH FREE 
BLOCKS BEFORE CTU-READ 



671C 


CD6700 




671F 


3A0200 




6722 


E602 




6724 


C23B67 




6727 


21A753 




67 2 A 


37 




672B 


22F1FF 




672E 


CD4 000 




6731 




Y6 


6731 


CD0570 




6734 


C23167 




6737 


CD4300 




67 3A 


C9 




67 3B 




Y6 


67 3B 


AF 


# 


673C 


3255FE 




673F 


CD0528 




6742 


3EDF 


f 


6744 


CD5B6A 




6747 


C9 


m A 


6748 




;* 

BY 



CALL 


FECNT 


;CHECK 


LDA 


BYFC2 


;IND. 


ANI 


BYFC2 


;SET 


JNZ 


Y600K 




LXI 


H,YMS12 




STC 




;OISPLAY 


SHLD 


M6PT1 


;MESSAGE 


CALL 


DPHS6 




Eau 


$ 




CALL 


ZETKY 


•BILDSCHIRH 


JNZ 


Y600J 


;SPEICHER 


CALL 


RTDSP 




RET 






EQU 


$ 




XRA 


A 




STA 


BYINI 




CALL 


RDKEY 


;READ DATA 



MVI A^-1-BYMF2 
CALL CBFL1 
RET 



6748 
6749 



IB 
1A 



;RET AFTER READ 



********************************* 

GEN. POINTER AND ADRESSEN 
********************************** 

610 EQU $ 

DCX D ;BUFF TYPE 

LDAX D ; 
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674A 


FEFF 


674C 


CO 


6740 


1B 


674E 


1A 


674F 


47 


6750 


AF 


6751 


4F 


6752 


54 


6753 


50 


6754 


C9 



6788 



CPI 


YOFF 


;I>ATA? 


RNZ 




;N0 


DCX 


D 


;YES 


LDAX 





;6ET LENGTH 


KOV 


B,A 


;SAVE COUNTER 


XRA 


A 


;U 1 AND # 2 


ROV 


C,A 


;SET LA POINTER 


ROV 


D^H 


;ADRESSEN 


MOV 


E,L 


;# 1 AND # 2 


RET 







6755 




6755 


CD6D6A 


6758 


CA1470 


675B 


3E08 


675D 


CD556A 


6760 


CD0B28 


6763 


C06128 


6766 


3EF7 


6768 


CD5B6A 


676B 




676B 


C9 



;********^* ************** ************ 
; BY640 RECORD KEY PRESSED 



;*********************************** 
BY640 EQU $ 

CALL CKSLR 

JZ ZBELL 

MVI A,BVHF1 

CALL SBFL1 

CALL RCKEY ;RECORD DATA 

CALL RVEVD ;RECORD EVD MARK 

MVI A^377Q-BYMF1 

CALL CBFLt 
Y640Z EQU $ 

RET ;RETURN 

# 
-********************************** 









SKIP 1 FILE BACK 






>********************************** 


676 C 




eY660 


EQU 


$ 


676C 


CD1568 




CALL 


BY720 


676 F 


C8 




RZ 




6770 


D8 




RC 




6771 




Y660D 


EQU 


$ 


6771 


3E53 




HVI 


A^SX 


6773 


324FFF 




STA 


ICERR 


6776 


AF 




XRA 


A 


6777 


2F 




CMA 




6778 


320CFF 




STA 


IPS6N ;SET NEG = BAC 


67 7B 


3C 




INR 


A 


67 7C 


67 




MOV 


H,A 


677D 


3C 




INR 


A ;SET TO ONE 


677E 


6F 




MOV 


L,A 


677F 


22D5FF 




SHLD 


ICCNT ;BACK ONE FILE 


6782 


CD5828 




CALL 


SCPFL 


6785 


CD3A28 




CALL 


BYCHK 



C9 



RET 



;********************************** 



SKIP 1 FILE FORM 



************************************ 



6789 




BY670 


EQU 


$ 


6789 


CD1568 




CALL 


BY720 


67 8C 


C8 




RZ 




678D 


D8 




RC 




678E 




Y670D 


EQU 


$ 


678 E 


3E53 




KVI 


A^SX 


6790 


324FFF 




STA 


ICERR 
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6793 


AF 


XRA 


A 


6794 


67 


MOV 


H,A 


6795 


3C 


INR 


A 


6796 


32DCFF 


STA 


IPSGN 


6799 


6F 


HOV 


L^A 


679A 


22D5FF 


SHLD 


ICCNT 


67 9D 


CD5828 


CALL 


SCPFL 


67AD 


CD3A28 


CALL 


BYCHK 



67A3 



;SET POS. = FOR« 

;SET TO ONE 
;FORMW. ONE FILE 



C9 



RET 



:*********************************** 









FIND WEITERSCHREIBSTELLE 






;1tie****t*** ********** ******** ********* 


67A4 




BY680 


E6U 


$ 


67A4 


CD1568 




CALL 


BY72Q 


67A7 


C8 




RI 




67 A8 


D8 




RC 




67A9 


21E152 




LXI 


H,YMS05 ;SUCHEN 


67AC 


22F1FF 




SHLD 


M6PT1 ;DATEI-ENDE 


67AF 


37 




STC 




67B0 


CD4000 




CALL 


DPMSG ;DISPLAY MESSAGE 


67B3 


CD7628 




CALL 


SREVD 


67B6 


CD3A28 




CALL 


BYCHK 


67B9 




Y680K 


ESU 


$ 


67B9 


CD4300 




CALL 


RTDSP 


67BC 




Y680Z 


EQU 


$ 


67BC 


C9 




RET 








I************************************ 








DRUCKAUS6ABE 6ILDSCHIRR 






• 


DISPLAY TO PRINTER 






************************************* 


67BD 




BY690 


EQU 


$ 


67BD 


CD6t00 




CALL 


CURPH 


67C0 


AF 




XRA 


A 


67C1 


324 FFF 




STA 


ICERR ;CLEAR ERROR FLA 


67C4 


326EFF 




STA 


DFLGS 


67C7 


3E04 




HVI 


A^DSPLY 


67C9 


324EFF 




STA 


IPDEV 


67CC 


3E08 




KVI 


A^PINTR 


67CE 


324DFF 




STA 


OTDEV 


67D1 


0601 




MVI 


B,YD01 


67D3 


C06728 




CALL 


XRD2D 


67 D6 




Y690Z 


EQU 


$ 


67D6 


C9 




RET 








************************************* 






; DISPLAY 


RECORD 






;*******«***************************« 


67D7 




BY700 


EQU 


$ 


67D7 


CD6D6A 




CALL 


CKSLR 


67 DA 


CA1470 




JZ 


ZBELL 


67 DD 




Y700D 


EQU 


$ 


67DD 


3E53 




MVI 


A^SX 


67DF 


324FFF 




STA 


ICERR 


67E2 


CD4768 




CALL 


BY730 


67E5 


324EFF 




STA 


IPDEV 


67E8 


CDC900 




CALL 


CRRET 
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67EB 


AF 




XRA 


A 




67 EC 


3D 




r>CR 


A 




67ED 


47 




«0V 


B,A 




67EE 


3E04 




HVI 


A^DSPLY 




67 FO 


324DFF 




STA 


OTOEV 


;SET DISPLAY TO OUTPUT 


67F3 


C&6728 




CALL 


XRD2D 


;COPY RECORD 


67F6 


C9 




RET 










^ ******************* ***************** 








BACK RECORD 


67F7 




BY710 


EQU 


$ 




67 F7 


CB6A28 




CALL 


CKONI 




67 FA 


C2F767 




JNZ 


BY710 




67FD 


3E53 




HVI 


A,SX 




67FF 


324FFF 




STA 


ICERR 




6802 


AF 




XRA 


A 




6803 


2F 




CKA 






6804 


32DCFF 




STA 


IPS6N 




6807 


3C 




INR 


A 




6808 


67 




MOV 


H^A 




68 09 


3C 




INR 


A 




68 OA 


6F 




ROV 


i-,A 




680B 


22D5FF 




SKLD 


ICCNT 




68 OE 


CD5228 




CALL 


SCPRC 




6811 


CB3A28 




CALL 


BYCHK 




6814 


C9 




RET 










;************************************ 






; SELECT 


UNIT 








;************************************ 


6815 




BY 720 


EQU 


S 




6815 


CD2F28 




CALL 


CTMON 


;flONITOR TAPE DRIVES 


6818 


C&0570 




CALL 


ZETKY 


;USER INTERRUPT 


681B 


C21568 




JNZ 


BY720 


;N0 WAIT 


681 E 


FEOD 




CPI 


CR 


;RETURN ? 


6820 


C8 




RZ 




;YES EXIT 


6821 


FEFO 




CPI 


F1KEY 


;LEFT TAPE ? 


6823 


CA3168 




JZ 


Y720H 


;YES 


68 26 


FEF1 




CPI 


F2KEY 


;RI6HT TAPE 


6828 


CA3B68 




JZ 


Y720K 


;YES 


68 2B 


CD1470 




CALL 


ZBELL 




68 2E 


C 31 56 8 




iRP 


BY720 




6831 




Y720H 


EQU 


$ 




6831 


CD3A28 




CALL 


BYCHK 


;UMIT BUSY 


6834 


D8 




RC 




;USER INTERRUPT 


6835 


CD6D28 




CALL 


SLLCT 


; SELECT LEFT UNIT 


6838 


C34268 




JRP 


Y720Z 




68 3B 




Y720K 


EQU 


$ 




683B 


CB3A28 




CALL 


BYCHK 


;UNIT BUSY 


683E 


D8 




RC 




;RET USER INTERRUPT 


683F 


CD7028 




CALL 


SLRCT 


;SELECT RI6HT TAPE 


6842 




Y720Z 


EQU 


$ 




6842 


F6FF 




ORI 


3776 


;SET NZ 


6844 


37 




STC 






6845 


3F 




CMC 




;SET TO NO CAEEY 


6846 


C9 




RET 







************************************ 
GET BIT FOR SELECT UNIT IN A 
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-************************************ 



6847 




Bt730 


E6U 


$ 




68 47 


3A55FF 




LDA 


CMND 


; CURRENT CTU 


684A 


E610 




kHl 


USL 


;LEFT? 


684C 


C25268 




JNZ 


Y730D 


;YES 


684F 


3E02 




«VI 


A^RGCTU 


; RIGHT 


6851 


C9 




RET 






6852 




Y730D 


E6U 


$ 




6852 


3E01 




MVI 


A^LTCTU 


;LEFT 


6854 


C9 




RET 










******** ********** ******-it*it* ********* 








READ i 


^FTER EVD 








^* ************************** ********* 


6855 




BY740 


EQU 


$ 




6855 


CD6D6A 




CALL 


CKSLR 




6858 


CA1470 




JZ 


ZBELL 




685B 




Y740D 


ESU 


$ 




685B 


3E53 


r 


«VI 


A,SX 




685D 


324FFF 




STA 


ICERR 




6860 


CD1568 


# 


CALL 


BY720 


;SELECT CTU 


6863 


C8 




RZ 






6864 


D8 




RC 






6865 


C04768 




CALL 


BY730 


;6ET BIT 


6868 


324EFF 




STA 


IPDEV 


;FOR SEL. UNI 


686B 


CD7F28 




CALL 


EDRED 


;AND READ 


686E 


CD3A28 




CALL 


BYCHK 




6871 




Y740Z 


Eeu 


$ 




6871 


C9 




RET 







; EXECUTE WORTUMLAUF 
************************************ 



6872 




BY75Q 


Eau 


$ 




6872 


CD6D6A 




CALL 


CKSLR 




6875 


CA1470 




JZ 


ZBELL 




6878 


CD6100 




CALL 


CURPH 


;CURSOR MOVE 


687B 


CD065A 




CALL 


BY110 


;DEF FROM 


687E 


CD6400 




CALL 


CRPHD 




6881 


CD3056 




CALL 


BYD35 




6884 


CD0E56 




CALL 


BY025 


;CURSOR AUF WEITERSCHR 


6887 


CD065A 




CALL 


BY110 


;DEF. TO 


68 8A 


CDC900 




CALL 


CRRET 


;RETURN 


688D 


CD8B0D 




CALL 


LFEEO 


;LINEFEED 


6890 


CDA856 




CALL 


BY120 


;MOVE BLOCK 


6893 




Y750Z 


EQU 


$ 




6893 


C9 




RET 







************************************* 







• 


ZEICHENZAEHLER 


FROM CURSOR 






i 


POSITION 




6894 




8Y760 


EGU $ 




6894 


CD6D6A 




CALL CKSLR 




6897 


CA1470 




JZ ZBELL 




689A 




Y760B 


EQU $ 




689A 


AF 




XRA A 


;CLEAR 
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689B 


47 




nov 


B^A 


^CHARACTER 


689C 


4F 




WOV 


C,A 


;COUNTER 


689D 


C5 




PUSH 


B 




689E 


217953 


r 


LXI 


H,YMS09 




68A1 


22F1FF 




SHLD 


KGPT1 




68A4 


214855 


» 


LXI 


H,YMS99 




68A7 


22EFFF 




SHL& 


f^6PT2 


;DISPLAV 


68AA 


37 




STC 




;«ESSAGE 


68 AB 


CD4000 




CALL 


DPMSG 




68AE 


CDF600 


# 


CALL 


RADR4 


;6ET CHAR. ADR, 


68B1 


C23969 




JNZ 


Y760R 


;N0 CHAR. EXIST 


68B4 


1A 




LDAX 


D 




68B5 


C3BE68 




J HP 


Y760E 




68B8 




Y760D 


ESU 


$ 




68B& 


CD9100 




CALL 


NTCHR 


;GET- CHAR. 


68BB 


C22B69 




JNZ 


Y760P 


;EOL LINK 


68BE 




Y760E 


EQU 


$ 




68eE 


FECC 




CPI 


EOL 




68C0 


CA1069 




JZ 


Y760K 


i 


68 C3 


FEC3 




CPI 


FILL 


m 


68C5 


CA1Q69 




JZ 


Y760K 


m 


68C8 


FEGE 




CPI 


EOP 




68CA 


CA1069 




JZ 


Y760K 




68C0 


B7 




ORA 


A 


;IS IT ASCII 


68CE 


FAB868 




JK 


Y760D 


;N0 GET NEXT CHAR. 


68 D1 


321BFC 




STA 


YZ100 




68D4 


FE3E 




CPI 


BEFOF 


;BEFEHL OFF 


68D6 


CAFB68 




JZ 


Y760H 


;¥ES 


68D9 


FE3C 




CPI 


BEFIN 


;BEFEHL IN 


68 DB 


CAFB68 




JZ 


Y760H 


;YES 


680 E 


FE20 




CPI 


ABLNK 


;BLANK? 


68E0 


C2F068 




JNZ 


Y760G 


;N0 


68 E3 


3A1CFC 




LDA 


YZ101 


;LAST CHARACTER 


68E6 


FE20 




CPI 


ABLNK 


;BLANK? 


68E8 


CAB868 




JZ 


Y760D 


;YES NEXT CHAR. 


68 EB 


FE3E 




CPI 


BEFOF 




68E0 


CAB868 




JZ 


Y760& 




68 FO 




Y7606 


EQU 


$ 




68 FO 


3A1CFC 




LDA 


YZ101 


;LAST CHAR 


68F3 


FE3C 




CPI 


BEFIN 


;BEFEHL IN 


68F5 


CAB868 




JZ 


Y760D 


;VES NEXT CHAR. 


68 F8 


C3 0469 




JWP 


Y760J 


;N0 INCR. COUNTER 


68 FB 




Y760H 


EQU 


$ 




68 FB 


3A1BFC 




LDA 


YZ100 


;NEW CHAR. TO 


68FE 


321CFC 




STA 


YZ101 


;LAST CHARACTER 


6901 


C3B868 




JHP 


Y760D 


;NEXT CHARACTER 


6904 




Y760J 


EQU 


% 




6904 


3A1BFC 




LDA 


YZ100 




69 07 


321CFC 




STA 


YZ101 




69 OA 


CI 




POP 


B 


9 


69 OB 


03 




INX 


B 


;INCR. CHAR. COUNTER 


690c 


C5 




PUSH 


B 




690D 


C3B868 




JMP 


Y760D 


;GET NEXT CHAR. 


6910 




Y760K 


EQU 


$ 




6910 


3A1CFC 




LDA 


YZ101 


;LAST CHAR. 


6913 


FE20 




CPI 


ABLNK 


;BLANK? 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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6915 


CA2069 




JZ 


Y760M 


;YES 


6918 


3E20 




RVI 


A,A6L(IK 




691A 


321CFC 




STA 


YZ101 




691D 


C1 




POP 


B 




691E 


03 




INX 


B 


;INCR. COUNTER 


691F 


C5 




PUSH 


B 




6920 




r760W 


EQU 


$ 




6920 


EB 




XCHG 






6921 


7D 




KOV 


A.L 




6922 


E6F0 




ANI 


377Q-BLKSM 


6924 


6F 




MOV 


Uft 




6925 


CD 0501 




CALL 


CHAIN 


i 


69 28 


C32C69 




J MP 


Y7600 




692B 




Y760P 


EQU 


$ 




6928 


EB 




XCHG 






692C 




Y7600 


EQU 


$ 




692C 


7E 




MOV 


A,M 




692D 


2B 




DCX 


H 


i 


692E 


6E 




KOV 


L,M 


r 


692F 


67 




MOV 


H^A 




6930 


7D 




MOV 


A,L 




6931 


87 




ORA 


A 


;END OF DISPLAY 


6932 


CA3969 




J2 


Y760R 


;YES 


6935 


EB 




XCHG 




;N0 


6936 


C3B868 


f 


JMP 


Y760D 


;6ET NEXT BYTE 


6939 




V760R 


EQU 


$ 




6939 


CD4928 




CALL 


GIOBO 


;BUFFER 


693C 


D8 




RC 




;USER INTERR- 


693D 


CD4328 




CALL 


GTPTR 


;FUER 


6940 


22EFFF 




SHLD 


M6PT2 


;MESSAGE 


6943 


CI 




POP 


B 




6944 


50 




MOV 


D^B 




6945 


59 




MOV 


E,C 




6946 


CDA800 




CALL 


B2DEC 


;BIN DEC 


6949 


36 CE 




MVI 


M,EOP 




694B 


37 


# 


STC 






694C 


CD4000 




CALL 


DPMS6 




694F 




Y760T 


EQU 


$ 




69 4 F 


CD0570 




CALL 


ZETKY 


;WAIT FOR 


6952 


C24F69 




JNZ 


Y760T 


;USER INTERRUPT 


6955 


CD4300 




CALL 


RTDSP 


;RETURN DISPLAY 


6958 




Y760Z 


EQU 


$ 




6958 


97 




SUB 


A 




6959 


323AFF 




STA 


B1STT 




695C 


3237FF 




STA 


B2STT 


;BUFFER FREE 


695F 


C9 




RET 












B = 


CODE 










H,L 


= TAB ADRESSE 








EXIT 


Z = 


FOUND 










NZ = NOT 


FOUND 








B = 


CODE 








^ ****** ***********:** 11*11*****11** ********* 


6960 




BY900 


EQU 


$ 




6960 


EB 




XCHG 






6961 




Y900A 


EQU 


$ 




6961 


1A 




LDAX 


D 


;LOAD BYTE 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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6962 


FEFF 


6964 


CA8069 


6967 


B8 


69 68 


CA8369 


696B 


13 


696C 


F27C69 


696F 


tA 


6970 


FEFF 


6972 


CA8069 


6975 


B8 


6976 


CA8369 


6979 


F28369 


697C 




697C 


13 


697D 


C36169 


6980 




6980 


F6FF 


6982 


C9 


6983 




6983 


AF 


6984 


F6 00 


6986 


C9 



Y900E 



Y900X 



Y900Z 



CPI 


Y0377 


;TAB END 


JZ 


Y900X 


;YES 


CKP 


B 


;CO«PERE 


JZ 


Y900Z 


; EQUAL 


INX 


D 


;INCR. TAB ADRESSE 


JP 


Y900E 


;G0 TO NEXT TAB ADR. 


LDAX 


D 


;LOAD BYTE 


CPI 


V0377 


;TAB ENB 


JZ 


Y900X 


;YES 


C«P 


B 


; COMPERE 


JZ 


Y900Z 


;0K EQUAL 


JP 


Y900Z 


;0K KLEINER 


EQU 


$ 




INX 


D 


;INCR. TAB ADR. 


J!«!P 


Y900A 


;LOOP TO NEXT TAB PO 


Eeu 


$ 




OR I 


377Q 


;RETURN NZ 


RET 




;NOT FOUND 


Eau 


$ 




XRA 


A 




ORI 


OB 


;RETURN Z 


RET 




; FOUND 



6987 




BY905 


EQU 


6987 


214851 




LXl 


698A 




Y905D 


EQU 


698A 


23 




INX 


69 8B 


23 




INX 


698C 


23 




INX 



•***illr *********************** ************ 

;* VERARBEITEN TABELLE DER * 

;* BISZ FUNKTIONEN * 

;* C = FUNKT- CODE * 

*************************************** 

$ 

H^BYTXO ;GET TABELLEN ADRESS 

$ 

H 

H 

H 

;**************************************** 

;* VERGLEICBE FUNKTIONSCOD E * 

;**************************************** 

;CODE IN A-REG. 

;GROESS. UNTERGRENZ. 

; H+L AUF ADR. 0BER6R. 

;NEIN VERGL. NAECHST. 



698D 


79 


ROV 


A^C 


698 E 


96 


SUB 


M 


698F 


23 


INX 


H 


6990 


DA8A69 


^C 


Y905D 


6993 


07 


RLC 




6994 


47 


«0V 


B^A 


6995 


7E 


HOV 


A^W 


6996 


B9 


CKP 


C 


6997 


DA8A69 


JC 


Y905D 



699A 


23 


INX 


H 


69 9B 


5E 


HOV 


E,M 


699C 


23 


INX 


H 


699D 


7E 


KOV 


A,M 


699E 


E67F 


ANI 


I77e 


69 AO 


57 


ROV 


D^A 


69 A 1 


96 


SOB 


M 


69A2 


C2AB69 


JNZ 


Y905H 


69 A5 


68 


MOV 


L,B 


69 A6 


67 


MOV 


H,A 


69A7 


19 


DAD 


D 



;SPEICH.IN B-RE6. 
;OBERGR.IN A-REG. 
;KLEINER OBERGRENZE 
;NEIN VERGL. NAECHST. 

;**************************************** 

;* FUNKTIONSCODE OK PRUEFEN 2. TABELLE ?* 
;**************************************** 

;6ET ADRESSE ENTRY 

;A=RSB E=LSB 

;MASKE BIT 15 PRUEF. 

;NEUE ADR. IN DD-REG-REG 

;INDEX TAB. ANKENDEN? 

;NEIN FUNKT. AUSFUEHREN 

;JA 

;ERRECHNEN 

;DADRESSE 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
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FILE 
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FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
FILE 
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69A8 
69A9 
69AA 



69AB 
69AB 
69AC 
69AC 



5E 
23 
56 



MOV 


E^M 


;UN[> 


INX 


K 


;UEBERNEKK£N 


MOV 


D,M 


;FUNICT.ROUT.ABRESSE 



EB 
C9 



;* FUNKTION AUSFUEHREN * 

^****1c******-k*** **************** ********** 

Y905H EQU $ 

XCHG ;FUNKT- ROUT ADR -> H-L 

Y905Z EQU $ 

RET 



************************************* 
', CONVERT CODE 



69AD 




69AD 


EB 


69AE 




69AE 


1A 


69 A F 


FEFF 


69B1 


CAC369 


69 BA 


B8 


69B5 


C2BE69 


69B8 


13 


69B9 


1A 


69BA 


47 


69 BB 


C3C66 9 


69BE 




69BE 


13 


69BF 


13 


69C0 


C3AE69 


69C3 




69C3 


F6FF 


69 C5 


C9 


69C6 




69C6 


AF 


69C7 


F600 


69C9 


C9 



; ENTRY B=CODE H+L 
; EXIT NZ = NOT FO 
; 2 = FOUND 

^**** ****** ********** 

BY910 



Y910A 



= TAB. ADRESSE 
UND 

AND B=NEW CODE 
****************** 



Y910E 



Y910X 



Y910Z 



EQU 


$ 




XCHG 






EQU 


$ 




LDAX 


D 


;6ET TAB 


CPI 


Y0377 


;END? 


JZ 


Y910X 


;YES 


CMP 


B 


;CHECK CODE 


JNZ 


Y910E 


;NOT EQUAL 


INX 


D 


;YES GET 


LDAX 


D 


;NEW CODE TO 


HOV 


B^A 


;B-REG. 


JMP 


Y910Z 


;AND EXIT 


EQU 


$ 




INX 


D 


;INCREMENT TO NEXT 


INX 


D 


;TAB ADR. 


JMP 


Y910A 




EQU 


$ 




ORI 


377Q 


;NOT 


RET 




; FOUND 


EQU 


$ 




XRA 


A 


;CODE FOUND 


ORI 


OB 


;RETURN 


RET 











;* 






t 






i 






1 






* 






;* 


69CA 




BY 


69CA 


7E 




69CB 


12 




69CC 


23 




69C0 


13 




69CE 


05 




69CF 


C2CA69 




6902 


C9 





*************************************** 
MOVE CHARACTER 

ENTRY: D-E = DEST. POINTER 
H-L = SOURCE POINTER 
B = COUNTER 
*************************************** 

920 



EQU 


$ 


MOV 


A^M 


STAX 


D 


INX 


H 


INX 


D 


DCR 


B 


JNZ 


BY920 


RET 





;GET BYTE 

;STORE BYTE 

;INCR- 

;INCR. 

;DECR. 

;LOOP 

;RETURN 



SOURCE POINTER 
OEST. POINTER 
COUNTER 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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69 E8 
69E8 
69 E9 
69E8 
69EC 
69ED 
69EE 
69 FO 
69F2 
69 F5 
69 F6 
69F8 
69FA 
69 FB 
69FC 
69FE 

69FF 
69FF 
6A00 



******************** ***1r********* ******* 









E 


L 


FOUND 
















CHECK 


LINE EMPTY ? 












ENTRY 


D- 


•E CHAR. ADR 












EXIT 


NC 


LINE EMPTY D 














D- 


-E UNCHANG. 


69 D3 




BY930 


EQU 


$ 






69D3 


78 






MOV 


A^E 




• 


69 D4 


E60F 






ANI 


BLKSM 




;LSB ADR. 


6906 


FEOB 






CPI 


YOOB 




; = -B- 


69 D8 


C2FF69 






JNZ 


Y930X 




; NO 








NEXT BYTE DATA 


OR LINK ? 


69 DB 


62 






MOV 


H^D 




;6ET ADR. 


69DC 


6B 






MOV 


L^E 




;T0 H+L 


69t>D 


23 






INX 


H 




;INCR. ADRESSE 


69 DE 


23 






INX 


H 




;T0 XXXD 


69DF 


7E 






MOV 


A,« 




;GET BYTE 


69E0 


FEDO 






CPI 


LKLIM 




;IS IT A LINK 


69E2 


F2E869 






JP 


Y930D 






69 E5 


DAFF69 






JC 


Y930X 




;N0 IT IS DATA 



IT 



=XXXB 



GET NEXT BLOCK ADR. AND CHECK 
LINE 



Y930D 



7B 

E6F0 

62 

6F 

7E 

E60F 

FEOD 

C2FF69 

7E 

E6F0 

F60D 

6F 

7E 

FEDO 

DO 



37 

C9 



Y930X 



EQU 
MOV 
ANI 
MOV 
MOV 
MOV 
ANI 
CPI 
JNZ 
MOV 
ANI 
ORI 
MOV 
MOV 
CPI 
RNC 

EQU 
STC 
RET 



$ 

A^E 

YOFO 

H,D 

L^A 

A,M 

YOOF 

YOOD 

Y930X 

A^M 

YOFO 

YOOD 

L^A 

A^M 

LKLIM 



;BLOCK LINK ADR. 

= XXXO 



NO 

GET ADR. 

AND CHECK IT 

FOR LINE LINK 
YES 



=XXXD 



;SET 



CARRY 



r ***************************** ******* 



;****! 

;* UMSPEICHERN 1/0 BUFFER IN Z-BUFFER 



;* EN 
;* EX 

;* 
;* 
;* 

;**** 



* 
* 
* 
* 
* 
* 
* 
************************************ 



TRY = 

IT = D-E 

= H-L 
= B 



SOURCE POINTER 
DESTIN. POINTER 
COUNTER -STACK 
NZ NO DATA 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
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FILE 
FILE 
FILE 
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FILE 
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6A01 




BY940 


EQU 


$ 




6A01 


CD4328 




CALL 


GTPTR 


;GET POINT TO FIRST BYTE 


6 A 04 


D5 




PUSH 


D 


;SAVE BUFF STATUS 


6A05 


CD4867 




CALL 


BY610 


;6ET BUFF ADR, 


6A08 


C21B6A 




JNZ 


Y940D 


;N0 DATA BUFF 


6A0B 


E5 




PUSH 


H 


;SAVE BUFF ADRESSE 


6A0C 


1100FB 




LXI 


D^YBBUF 


;H-L SOURCE D-E DEST. POINT 


6A0F 


CDCA69 




CALL 


BY920 


;TRANST. TO Z-BUFFER 


6A12 


El 




POP 


H 


;RECALL 


6A13 


D1 




POP 


D 


;REGISTER 


6A14 


D5 




PUSH 


D 


;AND SAVE STATUS 


6A15 


CD4867 




CALL 


BY610 


;6ET POINTER 


6A18 


AF 




XRA 


A 




6A19 


F600 




ORI 


OB 




6A1B 




Y940D 


EQU 


$ 




6A18 


D1 




POP 


D 


;REC. REGISTER 


6A1C 


C9 




RET 







6AID 
6A1D 
6A1E 
6A20 
6A23 
6A25 
6A27 
6A27 
6A28 
6A29 
6A2A 
6A2B 
6A2C 
6A2D 
6A2E 



79 

FEOQ 

C2276A 

3620 

0E01 

IB 
IB 
79 
12 
13 
13 
AF 
C9 



*******************************:** ******* 

* NEUE BUFFERLAEN6E IN * 
BUFFERSTATUS LADEN * 

* ENTRY = REG. IN STACK * 

* C = NEW BUFF. LENGTH * 
**************************************** 

EQU $ 

A,C 

OB 

Y945D 

M^ABLNK 

C^IB 



;* 



BY945 



Y945D 



MOV 

CPI 

JNZ 

«VI 

HVI 

EQU 

DCX 

DCX 

MOV 

STAX 

I NX 

INX 

XRA 

RET 



$ 

D 

D 

A,C 

D 

D 

D 

A 



;SAVE NEW LENGTH 



;EXIT 



;* E 
;* E 

r* 



6A2F 




6A2F 


7E 


6A30 


FEFF 


6A32 


C8 


6A33 


23 


6A34 


E5 


6A55 


3289FF 


6A38 


B7 


6A39 


F2486A 


6A3C 


FE80 



************************************ 

INFUE6EN ZEICHENFOLGE ♦ 

NTRY H-L = ADRESSE * 

377B = ENDE ZEICHENFOLGE * 

;* * 

***************************************** 
8Y950 EQU $ 



MOV 


A,M 


;GET 


CPI 


377Q 


;CHAR. 


RZ 




;END 


INX 


H 


;INCREMEND AND 


PUSH 


H 


;SAVE ADR. 


STA 


DCHAR 


;INSERT CHARACTER 


ORA 


A 


;ASCII 


JP 


Y950D 


;YES 


CPI 


200Q 


;VIDEO OFF 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 
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20 


FILE 


20 


FILE 


20 
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6A3E 


060F 


6A40 


C2456A 


6A43 


AF 


6A44 


47 


6A45 


Y 


6A45 


CD0E01 


6A48 


C3516A 


6 A 48 


Y 


6A4B 


CD0201 


6A4E 


C BE 400 


6A51 


Y 


6A51 


El 


6A52 


C32F6A 















6A5B 
6A5B 
6ASE 
6A5F 
6A60 



6A61 
6A61 
6A64 
6A65 
6A66 



6A67 
6A67 
6A6A 
6A6B 
6A6C 



«VI B^17a 
JNZ Y95 0B 
XRA A 
«0V B,A 

Y950B EQU $ 

CALL BSPC1 
JHP Y950G 

Y950D EQU $ 

CALL DSPLA 
CALL CRADV 

Y9506 EQU $ 
POP H 
JMP BY950 



;INSERT CONTROL 



;DISPLAY AND 
;ADVANCE 

;REC. REGISTER 
;NEXT CHAR. 



6A55 




S 


6A55 


2167FE 




6A58 


86 




6A59 


77 




6A5A 


C9 


* 

m 
f 

m 
# 



;****** **********it******* *************** 

; SET FLAG BIT IN BYFLl 

; ENTRY A=FLA6 BIT 

; RVI A, XXX FLAG BIT 

;******************************♦******* 

SBFL1 



;6ET FLAG 

;ADD BIT 

;AND MERGE IT 



EQU $ 

LXI H^BYFLI 
ORA M 
MOV M^A 
RET 
*************************************** 

CLEAR FLAG BIT IB BYFLl 
ENTRY A=FLAG BIT 
MVI A^377-XXX FLAG BIT 

*************************************** 



CBFL1 



2167FE 
A6 
77 
C9 



EQU 
LXI 
ANA 
MOV 
RET 



H^BYFLI 

M 

K,A 



;6ET FLAG 
;CLEAR BIT 
;ANO MERGE IT 



2166FE 
B6 
77 
C9 



;************************************* 

; SET FLAG BIT BYFL2 
************************************* 

EQU $ 

H,BYFL2 

M 

M^A 



SBFL2 



2166FE 
A6 
77 
C9 



LXI 

ORA 
MOV 
RET 
************************************* 

CLEAR FLAG BIT BYFL2 
************************************* 

EQU S 

LXI H^BYFL2 

ANA M 

MOV M^A 

RET 



CBFL2 



:* PRUEFEN OB 



;**************************************** 

RECHTS * 

* 
* 



6A6D 
6A6D 



:* EXIT 

r** 

CKSLR 



SHIFT LINKS ODER 
BETAETIGT WURDE 
NZ = JA 



;**************************************** 



3A12FF 



EQU 
LDA 



$ 
KCTSH 



; SHI FT 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 
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20 
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FILE 
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20 
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20 


FILE 


20 
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20 


FILE 


20 


FILE 


20 


FILE 


20 
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6A70 E618 ANI LHFKY+RHFKY ; LINKS/RECHTS ;SHIFT 

6A72 C9 RET 

t 
;**************************************** 

;* PRUEFEN OB SHIFT 2 * 

;* BETAETIGT WURDE * 

;* EXIT NZ = JA * 

6A73 CKSH2 EQU $ 

6A73 3A12FF LDA KCTSH ;SHIFT 

6A76 E602 ANI LF2KY ;#2 

6A78 C9 RET 

r 
;****************♦*********************** 

;* PRUEFEN 08 AUTO LINEFEED * 

;* GESETZT 1ST * 

;* EXIT NZ = JA * 

6A79 CKALF EQU $ 

6A79 3AF3FF LDA MFLG2 ;TERKINAL MODE FLAG 

6A7C E604 ANI ATOLF ;AUTO LINEFEED 

6A7E C9 RET ;EXIT 

# 



; CHRINS - INSERT CHARACTER 
************************************** 



f 



ENTRY : A=CHARACTER TO BE INSERTED 

CRROW,CRCOL=DISPLAY POSITION WHERE 
INSERT IS TO BE DONE 

EXIT : A = 0, INSERT NOT DONE 
A # 0, INSERT PERFORMED 
DCHAR DESTROYED 
B-L DESTROYED 

CHARACTER IS INSERTED IMMEDIATELY AHEAD OF THE 
CHARACTERS LOCATED AT THE SPECIFIED ROW AND 
COLUMN POSITIONS 



CHAR TO BE INSERTED 



6A7F 




CRINS 


EQU 


$ 




6A7F 


3289FF 




STA 


DCHAR 


;SAVE 


6A82 


3EFF 




MVI 


A,377Q 


;INHIB 


6A84 


3291FF 




STA 


BKFIL 




6A87 


CDF600 




CALL 


RADR4 


;DOES 


6A8A 


C20201 


#- 


JNZ 


DSPLA 


;N0 - 
YES - 


6A8D 


C3F36A 




JMP 


CI104 




6A90 




CR050 


EQU 


$ 




6A90 


3A12FF 




LDA 


KCTSH 




6A93 


E6 06 




ANI 


LF1KY + 


LF2KY 


6A95 


C2F36A 




iNZ 


CI104 




6A98 


D5 




PUSH 


D 


;SAVE 


6A99 


CDF600 




CALL 


RADR4 




6A9C 


1A 




LDAX 


D 




6A9D 


B7 




ORA 


A 




6A9E 


F2CC6A 




JP 


CRC67 


;ASCII 


6AA1 


E6F0 




ANI 


YOFO 


;N0 



DISPLAY POSITION EXIST 
TRY TO EXTEND LINE 
- INSERT THE CHARACTER 



ADR. FROM LAST RADDR 



FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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20 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 
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6AA3 
6AA5 

6AA8 
6AA9 
6AAA 
6 A AC 
6AAF 
6AB2 
6AB5 
6AB6 
6AB7 
6ABA 
6ABC 
6ABE 
6AC1 

6AC4 
6AC4 
6AC6 
6AC9 
6ACC 
6ACC 
6ACD 

6A00 
6AD0 
6AD2 
6AD5 
6AD6 
6AD9 
6ADA 
6ADB 
6ADE 
6AE0 
6AE2 
6AE5 
6AE8 
6AE6 
6 A EC 
6AED 
6AF0 



FE80 
CACC6A 

E1 

D5 

26FF 

CDCOOO 

CDF600 

C2C46A 

1A 

B7 

F2C46A 

E6F0 

FEAO 

CAD06A 

C3C46A 



26 FF 

CDC300 

CDF600 

D1 
C3F36A 



26FF 

CDC300 

El 

3A89FF 

47 

C5 

3AC6FF 

E60F 

F680 

CD7F6A 

CDF600 

CD9100 

CI 

78 

3289FF 

C3F36A 



CR066 



CR067 



CR070 



CPI 
JZ 

POP 

PUSH 

HVI 

CALL 

CALL 

JNZ 

LDAX 

ORA 

JP 

ANI 

CPI 

JZ 

JMP 

ECtU 

MVI 

CALL 

CALL 

E6U 

POP 

iWP 

EQU 

MVI 

CALL 

POP 

LDA 

MOV 

PUSH 

LDA 

ANI 

ORI 

CALL 

CALL 

CALL 

POP 

KOV 

STA 

J«P 



Y080 
CR067 

H 



H^BASEH 

CURPL 

RADR4 

CR066 



A 

CR066 

YOFO 

YOAO 

CR070 

CR066 



H^BASEH 

CURPR 

RADR4 

$ 



CI104 

% 

H^BASEH 

CURPR 

H 

DCHAR 

B,A 

B 

LTOCD 

YOOF 

Y080 

CRINS 

RA0R4 

NTCHR 

B 

A,B 

DCHAR 

CI104 



ERRORS = PAGE 91 



; SHI FT 2*3 
;OFF 



;ASCII 



;SHIFT 2+3 CHAR 



;EXIT AFTER INSERT ALT OFF 



6AF3 




6AF3 


2E89 


6AF5 


46 


6AF6 


EB 


6AF7 




6AF7 


78 



f ***************************** *1t******1c ********* 

; CRI100 - ENTRY TO STORE CHARACTER FOR INSERT * 
; CHARACTER MODE * 

f *********************************************** 

• ENTRY r C = COLUMN NUMBER 

; D^E = ADDR WHERE INSERT IS TO BE MADE 

; H = BASEH 

CI104 ESU $ 

MVI L,DCHAR-BASE 

MOV B^M ;GET CHAR TO BE INSERTED 

XCHG ;PUT CHAR ADDRESS INTO H,L 

CR110 EQU $ 

MOV A,B ;1S THIS CONTROL CODE? 



FILE 


20 
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20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 


20 


FILE 
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20 
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20 
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20 
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20 
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20 
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20 


FILE 


20 


FILE 


20 
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6AF8 
6AF9 
6AFC 
6AFI> 
6AFD 
6AFE 
6AFF 
6B00 
6B01 
6B03 
6B04 
6B07 
6B0A 
68 OB 
6B0C 



6BCF 
6B0F 
6B10 
6B12 
6B15 
6B17 
6B1A 
6B1C 
6B1F 
6B21 
6B24 
6B27 
6B28 
6B2B 
6B2E 
6B31 
6B32 
6B34 
6B37 
6B39 
6B3C 
6B3D 



B7 

FAFD6A 

OC 

7E 

70 

47 

2B 

3E50 

B9 

CAAF6B 

3ABEFF 

3C 

B9 

CAA76B 



7E 

FECO 

DA F 76 A 

FEDO 

027B6B 

FECC 

CA576B 

FEC3 

CA626B 

3A89FF 

B7 

FAF76A 

C01A01 

CAF76A 

7E 

FECO 

CA4 06B 

FEC5 

FAF76A 

2B 

C3 0F6B 



6B40 




6B40 


78 


6B41 


B7 


6B42 


F24D6B 


6B45 




6B45 


C D 9C6 D 


6B48 


FA456B 


6B4B 


3680 


6B4D 




6B4D 


CD9C6D 


6B50 


FA4D6B 


6B53 


2B 


6B54 


C31D01 



CI120 



ORA 

JK 

INR 

Eau 

WOV 

MOV 

MOV 

DCX 

HVI 

CMP 

JZ 

LDA 

INR 

CMP 

JZ 



A 

CI120 
C 

$ 

A,M 

B,A ; 

H 

A^KXCOL+1 
C 

CI305 
RTMGN 
A 
C 
CI300 



; PROCESS N 
*********** 



CI140 



ESU 

MOV 

CPI 

JC 

CPI 

JNC 

CPI 

JZ 

CPI 

JZ 

LDA 

ORA 

JH 

CALL 

JZ 

MOV 

CPI 

JZ 

CPI 

JK 

DCX 

JMP 



********** 

EXT CHARAC 
********** 

$ 

A,« 

EHLIM*1 

CR110 

LKLIM 

CI220 

EOL 

CI158 

FILL 

CI159 

DCHAR 

A 

CR110 

CKFMS 

CR110 

A,« 

STPR 

CItSO 

ALPHA 

CR110 

H 

CI140 



;YES - DON»T COUNT COLUMN 
; INCREMENT COLUMN 

;GET CHAR IN CURRENT ADDR 

; STORE NEW CHAR 

; SAVE OLD CHAR IN B 

;MOVE TO NEXT CHARACTER 



;STORE DONE AT EN& OF LINE? 
;YES - TERMINATE INSERT 
;6ET RIGHT MARGIN COLUMN 
;WAS THE LAST STORE DONE 

;AT THE RIGHT MARGIN? 
;YES - TERMINATE INSERT 

************** 
TER OF BLOCK * 
************** 



^ ************** ****** 

; END OF FIELD - ASCI 
;******************** 

CI150 



CI152 



GET THE NEXT CHARA 
ASCII OR DISPLAY C 
YES - MOVE THE BYT 
IS IT A LINK BYTE? 
ES - MOVE TO NEXT 
S IT END OF LINE? 
YES - ADD LAST CHA 
END OF LINE FILL C 
YES - ADD BYTE TO 
NO - FIELD CHECK C 
IS ADDED CHARACTER 
NO - CONTINUE INSE 
FORMAT MODE ENABLE 
NO - CONTINUE INSE 
YES - RECALL THE B 
IS CHARACTER A STA 
YES - CHECK INSERT 
FIELD TYPE DEFINIT 
NO - CONTINUE INSE 
YES - ADVANCE TO N 
LOOK TO NEXT CHARA 



***************** 

I CODE INSERTED * 
***************** 



;i 

# 




I 
# 

# 
t 

! 

r 
r 
# 



CTER' 

ONTROL? 

E 

BLOCK 

R TO LINE 
HARACTER? 
END 
HARACTER 

ASCII? 
RT MOVE 
D? 
RT 
YTE 
RT PROT? 

TYPE 
ION? 
RT 

EXT BYTE 
CTER 



CI154 



EQU 


$ 


MOV 


A,B 


ORA 


A 


JP 


CI154 


EQU 


$ 


CALL 


CI500 


JM 


CI152 


MVI 


M,2 00Q 


EQU 


$ 


CALL 


CI500 


JM 


CI154 


DCX 


H 


JMP 


CER02 



;GET CHAR WHICH ROLLED OFF 
;IS IT ASCII? 

;YES - DELETE PREV CONTROLS 
;N0 - BACK UP ANOTHER CHAR 
;IS PREVIOUS CHARACTER ASCII 
;N0 - CONTINUE BACKING UP 
;YES - TEMPORARILY REPLACE 
ASCII WITH DUMMY CONTROL 

;PREVIOUS CHARACTER ASCII? 
;N0 - CONTINUE BACKING UP 
;MOVE TO NEXT CHARACTER 
;CLEAR REST OF FIELD 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
20 
20 
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20 
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20 



8080 MACRO ASSEMBLER, VER 2. A 



ERRORS = PAGE 93 



6B57 




6B57 


78 


6B58 


87 


6B59 


FA656B 


68 5C 


79 


6B50 


FE4F 


6B5F 


C2666B 


6B62 




6B62 


70 


6B63 


87 


6B64 


C9 



6B65 
6B65 
6B66 
6B66 
6B67 
6B67 
6B6A 
6B6B 
6B6D 
6B6E 
6B6F 
6B7Q 

6B72 
6B75 
6B76 
6B79 

68 7A 



6B7B 
6B7B 
6B7E 
6B7F 
6B80 
6B81 
6B83 
6B86 
6B89 



6B8C 
6B8C 
6B8D 
6B90 
6B91 
6892 
6B93 



EB 

2189FF 

70 

2EC1 

46 

C5 

71 

OEOO 

CB2001 

CI 

2tClFF 

70 

C9 



2296FF 

2B 

7E 

2F 

E60F 

C28C6B 

CD0501 

C30F6B 



78 

329DFF 

23 

23 

46 

EB 



; EOL FOUND * 

; ADD LAST CHARACTER TO LINE * 



CI158 



CI159 



EQU 
MOV 
ORA 

WOV 
CPI 
JNZ 
EQU 
HOV 
ORA 
RET 



$ 

A^B 

A 

CI160 

A,C 

KXCOL 

CI17D 

$ 

M^B 

A 



;6ET CHARACTER 

;IS THIS CONTROL CHAR? 

;YES - ADD CHAR 

;N0 - CHAR IS ASCII 

;IS THIS MAX COLUMN? 

;N0 - ADD CHAR 



;ASC1I CHARACTER INSERTED TO 
«AXIMUK COLUMN - OVERLAY 
RETURN 



;EOL 



AND 



NZ 



*************************** 
', EOL CANNOT BE OVERLAYED * 
; ADD NEW CHAR TO LINE * 
: **************-k** ********* 

EQU $ 
DCR C 

EQU $ 



CI160 
CI170 
CI180 



XCHG 
EQU $ 
LXI 

«ov 

RVI 

MOV 

PUSH 

MOV 

«VI 

CALL 

POP 

LXI 

MOV 

RET 



PUT H,L INTO D,E 



H^DCHAR 

M,B 

L,CRCOL-BASE 



SAVE CHARACTER TO BE ADDED 



B,M 
B 

M,C 
CO 

DSPL1 

B 

H^CRCOL 

M^B 



;* 

CI 



****************** 

LINK FOUND - MOVE 
****************** 

220 EQU $ 



e 

;* 

CI 



SHLD LKSAV 
DCX H 
MOV A^M 
CMA 

ANI 6LKSM 
JNZ CI240 
CALL CHAIN 
i«P CI140 
****************** 

NEW BLOCK REQUIRED 
****************** 

240 EQU $ 



;GET CURRENT CURSOR COLUMN 

;AND SAVE IT 
;SET "CURCOL" TO INSERT COL 
;SET # OF CHARS NEEDED TO t 

(VALUE IN C IS ONE LESS> 
; BUILD NECESSARY BLOCKS 
.-RESTORE ORIGINAL CURSOR 

;COLUMN NUMBER 

; RETURN (A=ME«ORY LOCK STATE) 

*************** 

TO NEXT BLOCK * 
*************** 

;SAVE CURRENT BLOCK ADDRESS 
;GET THE LSB OF THE LINK 

;IS IT AN EOL LINK (LOWER 

;FOUR BITS NOT ALL ONES)? 
;YES - EXTEND THE LINE 
;N0 - GET NEXT BLOCK ADDRESS 
;CONTINUE INSERT CHARACTER 



** 

* 

** 



MOV 
STA 
INX 
INX 
MOV 
XCHG 



A,B 
TEMP 

H 
H 

B,M 



SAVE CHARACTER BEING MOVED 

;GET THE LAST CHARACTER OF 
;THE CURRENT BLOCK TO BE 
;STORED AGAIN IN THE SAME 
;LOCATION BY "DISPL1" 
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FILE 
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FILE 
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6B94 
6B95 

6B98 
6899 
6B9C 
6B9F 

6BA0 



6BA1 
6BA1 
6BA4 
6BA6 



6BA7 
6BA7 
6BAA 
6BAB 
6BAE 
6BAF 
6BAF 
6BB2 
6BB5 
6BB6 
6BB9 
66BC 
6BBD 
6BC0 
6BC1 
6BC4 
6BC5 
6BC8 
6BCB 
6BCC 
6BCD 
6BCE 
6BCF 
6BD2 



OD 

CD676B 

B7 

CAA16B 

3A9DFF 

12 

C9 



2A94FF 

36CC 

C9 



3A89FF 

B7 

FA0F6B 

79 

32D7FF 

2296FF 

EB 

2179FF 

223BFF 

13 

CD9100 

EB 

22D5FF 

78 

CAF56B 

213BFF 

34 

6E 

77 

B7 

F20A6C 

C9 



DCR 

CALL 

ORA 

iZ 

LDA 

STAX 

RET 
J********** 

; BLOCK NOT 
; WRITE EOL 

CI260 EGU 
LHL& 
MVI 
RET 



C ;GET COLUMN # OF PREV CHAR 

CI180 ;ADD BLOCK 

A ;IS WEHORY LOCKED? 

CI260 ;¥ES - BLOCK NOT ADDED 

TEMP ;N0 - RECALL CHAR TO BE AD&6 

D ;PUT CHARACTER IN NEW BLOCK 

(OVERWRITE EOL) 



;RETURN 
*********************** 

AVAILABLE * 

AT END OF LAST BLOCK * 

*********************** 

$ 

ELADR ;6ET ADR OF CHR BEFORE LNK 
M,EOL ;WRITE EOL 
; RETURN 



: * 



t 

:* 



***************** 
RIGHT MARGIN OR E 
TERMINATE AND OPT 
TO THE NEXT LINE 
***************** 



CI300 



CI 305 



EQU 

LDA 

ORA 

JM 

MOV 

EQU 

STA 

SHLD 

XCHG 

LXI 

SHLD 

INX 

CALL 

XCHG 

SHLD 

MOV 

JZ 

LXI 

INR 

MOV 

MOV 

ORA 

JP 

RET 



$ 

DCKAR 

A 

CiUO 

A,C 

$ 

PARM5 

LKSAV 

H^BDBFL- 
BDEND 
D 
NTCHR 

PARM6 

A^B 

CI320 

H, BDEND 

M 

L,M 

M,A 

A 

CI330 



************************* 
ND OF LINE REACHED - * 
lONALLY PUSH CHARACTERS * 
(WRAP AROUND) * 

************************* 

;6ET THE INSERTED CHARACTER 
;IS IT ASCII? 
;N0 - CONTINUE INSERTING 
;YES - RECALL ENDING COLUMN 

;SAVE ENDING COLUMN NUMBER 
;SAVE ENDING CHARACTER ADDR 
;PUT ENDING ADDRESS IN D^E 
•1*256+BDBFL-1 

;INIT CHAR BUFFER POINTERS 
;GET ADDRESS OF NEXT EXCESS 
;CHARACTER 

;ARE WE AT AN EOL LINK? 

;(PUT 1ST EXCESS CHAR IN A 
;N0 - ACCUMULATE EXCESS 
;YES - SAVE FIRST EXCESS CHA 



;IS IT ASCII? 
;YES - CHECK FOR 
;N0 - RETURN 



INSERT WRAP 



ACCUMULATE THE EXCESS CHARACTERS 



6BD3 




CI310 


EQU 


$ 


6B03 


2AD5FF 




LHLD 


PARM6 


6BD6 


EB 




XCHG 




6B07 


3AD7FF 


# 


LDA 


PARW5 


6BDA 


FE50 




CPI 


MXCOL+1 


6BDC 


C2E56B 




JNZ 


CI315 


6BDF 


1A 




LDAX 


D 


6BE0 


FECC 




CPI 


EOL 


6BE2 


CAFC6B 




J2 


CI325 


6BE5 




CI315 


EQU 


$ 



;RECALL EXCESS CHAR ADDRESS 
;PUT ADDRESS INTO D^E 

;RECALL END POSITION 

;PAST COLUMN 80 

;N0 CONT. NORM DELETE 

;¥ES LOOK FOR EOL 

;EOL FOUND ? 

;YES TERM EXCESS CHAR. 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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MVI 
STA 
MVI 
CALL 
LDA 
MOV 
INR 
RZ 
CI320 EQU 
LXI 
INR 
MOV 
MOV 
ORA 



6BE5 


3EFF 


6BE7 


3298FF 


6BEA 


0E50 


68 EC 


CD2301 


6BEF 


3A98FF 


68 F2 


47 


6BF3 


04 


6BF4 


C8 


6BF5 




6BF5 


213BFF 


68 F 8 


34 


6BF9 


6E 


6BFA 


77 


6BFB 


87 



6C0A 




6C0A 


3AC1FF 


6C0D 


47 


6C0E 


3ABEFF 


6C11 


68 


6C12 


D8 


6C13 


CD1A01 


6C16 


CO 


6C17 


C5 


6C18 


3AC0FF 


6C1B 


57 


6C1C 


D5 


6C1D 


78 


6C1E 


3264FE 


6C21 


3ABEFF 


6C24 


B8 


6C25 


CA3B6C 



A^-1 

CHSAV 

C,MXC0L+1 

CRD Li 

CHSAV 

B^A 

B 



H,BDEND 

M 

L,M 

M,A 

A 



ERRORS = PAGE 95 



;SET DELETED CHAR TO -1 

;FORCE DELETE PAST MARGIN 
;DELETE ONE EXCESS CHARACTER 
;RECALL THE DELETED CHARACTE 
;SAVE THE CHARACTER IN B-REG 
;ANV CHARACTER DELETED? 
;N0 - RETURN (A#0) 
YES - ACCUMULATE EXCESS 

DELETED CHAR INTO BOFFE 



;PUT 



;MAS DELETED CHARACTER ASCII 







1 
t 


6BFC 




C 


6BFC 


3AD7FF 




6BFF 


FE50 




6C01 


2A96FF 




6C04 


EB 




6C05 


3EC3 




6C07 


CC2601 





MODIF. 04.10.77 

FEHLER DES STAND. PROGRAMMS BEI 

ENH. CODE IN DIE NAECHSTE ZEILE 



INSERT/WRAP AROUND 



1325 



JM 

EQU 

LDA 

CPI 

LHLD 

XCHG 

MVI 

cz 



CI310 

$ 

PARM5 
MXCOL+1 
LKSAV 

A,FILL 
CERLO 



;N0 - CONTINUE ACCUMULATING 



;RECALL ENDING COLUMN NUMBER 
;TERMINATE ON LAST COLUMN? 
;(RECALL ENDING CHAR ADDR) 

;{SET FOR FILL PAD) 
;YES - CLEAR REST OF LINE 



WRAP AROUND FOR WORD 



CI330 



EQU 


$ 




LDA 


CRCOL 


;CURRENT 


MOV 


B,A 


; COLUMN U 


LDA 


RTMGN 


; BEYOND RIGHT 


CMP 


6 


;HAR6IN? 


RC 




;YES 


CALL 


CKFMS 


;FORMAT/SOFT KEY MODE 


RNZ 




;YES 


PUSH 


6 


;SAVE CURRENT COLUMN 


LDA 


CRROW 


* 
# 


MOV 


D^A 




PUSH 


D 


;SAVE CURRENT ROW # 


MOV 


A^B 




STA 


BYCI1 




LDA 


RTMGN 




CMP 


B 




JZ 


CI334 





; SCANNING BACK TO LAST 

; BLANK FOR WORD WRAP AROUND 



6C28 


3ABEFF 


LDA 


RTMGN 


6C2B 


32C1FF 


STA 


CRCOL 


6C2E 


AF 


XRA 


A 


6C2F 


325 BFE 


STA 


BYZ06 



;CLEAR A 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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6C32 




CI333 


EQU 


$ 




6C32 


CDB400 




CALL 


RADDR 


;WRAP 


6C35 


1A 




LDAX 


D 


;CHARACTER 


6C36 


FE20 




CPI 


ABLNK 


;*=BLANK 


6C38 


C2496C 




JNZ 


CI337 


;N0 


6C3B 




CI334 


EQU 


$ 




6C3B 


D1 




POP 


D 


;1fES 


6C3C 


CI 




POP 


B 


;GET ROW # AND 


6C3D 


C3936D 




JKP 


CI460 


;COLUMN # > EXIT 


6C40 




CI335 


EQU 


$ 




6C40 


215BFE 




LXI 


H,BYZ06 


;INCR. CHAR. COUNTER 


6C43 


34 




INR 


M 


m 


6C44 


26FF 




MVI 


H,BASEH 




6C46 


CDCOOO 




CALL 


CURPL 


;CURSOR LEFT 


6C49 




CI337 


EQU 


$ 




6C49 


CDB400 




CALL 


RADDR 




6C4C 


1A 




LDAX 


D 




6C4D 


FE20 




CPI 


ABLNK 


;=BLANK 


6C4F 


CA996C 




JZ 


CI340 


;YES 


6C52 


3A5BFE 




LDA 


BYZ06 




6C55 


FE04 




CPI 


100B 


;64 CHAR. 


6C57 


CA996C 


i 


JZ 


CI340 


;YES TERMIN SCANNING 


6C5A 


3A64FE 


f 


LDA 


BYCI1 


;6ET LAST 


6C5D 


47 




MOV 


B^A 


;COLUMN 3 


6C5E 


3AC1FF 




LDA 


CRCOL 


; EQUAL 


6C61 


B8 




CMP 


B 


;CURRENT 


6C62 


CA836C 




JZ 


CI338 


;YES TERM. SCANNING 


6C65 


1A 


t 


LDAX 


D 


;GET CHAR 


6C66 


47 




MOV 


B^A 


;CHECK TAB 


6C67 


213152 




LXI 


H,BYT06 


;ZENTR. 


6C6A 


CD6069 




CALL 


BY900 




6C6D 


C2406C 




JNZ 


CI335 


;N0 NEXT CHARACTER 


6C70 


CDF600 




CALL 


RADR4 


;YES 


6C73 


1A 




LDAX 


D 


;GET CONTR. CODE 


6C74 


E6F0 




ANI 


YOFO 




6C76 


FEAO 




CPI 


YOAO 


;ALT ON ? 


6C78 


C2406C 




JNZ 


CI 335 


;N0 NEXT CHARACTER 


6C7B 


3E04 




MVI 


A^BYCIF 


;YES SET IND. 


6C7D 


CD616A 




CALL 


SBFL2 




6C80 


C3406C 


# 


JMP 


CI335 


;N0 SCANNING BACK 


6C83 




CI338 


EQU 


$ 




6C83 


3A67FE 




LDA 


BYFL1 


;BLOCK MOVE ? 


6C86 


E601 




ANI 


BYMOV 


i 


6C88 


C2996C 




JNZ 


CI340 


;YES TERM SCANN BACK 


6C8B 


3E08 




MVI 


A,BYCID 


;SET INDIKATOR 


6C8D 


CD616A 




CALL 


SBFL2 


;BLANK BEFORE CURSOR 


6C90 


3A5BFE 




LDA 


BYZ06 


;SAVE POINTER TO 


6C93 


3258FE 




STA 


BYZ08 


;AKT. CURSOR POSIT. 


6C96 


C3406C 




JMP 


CI335 


;CONT- SCANN BACK 


6C99 




CI340 


EQU 


$ 




6C99 


26FF 




MVI 


H,BASEH 
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6C9B 
6C9E 
6CA1 
6CA2 
6CA5 
6CA8 
6CAA 
6CAD 
6CB0 
6CB3 
6CB5 
6CB8 
6CBA 
6CBD 
6CC0 
6CC3 
6CC6 
6CC9 
6CC9 
6CCC 
6CCF 
6CCF 
6C02 
6CD5 
6CD8 
6CDB 

6CDE 
6CE1 
6CE2 
6CE5 

6CE8 
6CE8 
6CEB 
6CED 
6CF0 
6CF3 
6CF6 
6CF6 
6CF9 



CDC300 

CDF600 

EB 

2259FE 

3AF3FF 

E604 

C48B00 

CD8BG0 

3A66FE 

E604 

CACF6C 

3EF8 

CD676A 

CD796A 

CAC96C 

CDE100 

CD4A5F 

CDE100 
CD4A5F 

CD1701 
C2FC6C 

3ABEFF 
C£>F300 
FAE86C 

3A5BFE 
90 

F2E86C 
C3FC6C 



3AF3FF 

E604 

CAF66C 

CDE1Q0 

CD4A5F 

CDE100 
CD4A5F 



6CFC 




6CFC 


2'J3BFF 


6CFF 


7E 


6D00 


FE3C 


6D02 


CA1560 


6D05 


35 


6D06 


6F 


6D07 


3ABFFF 


6D0A 


32C1FF 


6D0D 


7E 


6D0E 


CD7F6A 


6D11 


B7 


6D12 


C2FC6C 


6D15 




6D15 


2A59FE 


6D18 


CDEA63 



CI343 



CI345 



CI350 



CI355 



CALL 


CURPR 




CALL 


RADR4 




XCHe 






SHLD 


SYZ07 


;SAVE DEL. ADR. 


LDA 


KFL62 


» 


ANI 


ATOLF 


;AUTO LINEFEED 


CNZ 


LFEED 


m 

r 


CALL 


LFEED 


t 


LDA 


BYFL2 


;IND. ZENTR. SET? 


ANI 


B¥CIF 


i 


JZ 


CI345 


;N0 


RVI 


A,-1-BYCIF ;YES CLEAR 


CALL 


CBFL2 


;IND. 


CALL 


CKALF 


;AUTO LINEFEED 


JZ 


CI343 


;N0 


CALL 


LNINS 


;YES INSERT LINE X2 


CALL 


Y127D 




EQU 


$ 




CALL 


LNINS 


;N0 INSERT LINE XI 


CALL 


Y127D 




EQU 


$ 




CALL 


RADRI 


;EXIST NEXT LINE 


JNZ 


CI400 


;N0 IN 


LDA 


RTMGN 


; CHECK 


CALL 


FDLSO 


;LINE FULL ? 


JM 


CI350 


;YES INSERT LINE 


LDA 


BYZ06 


;GET CHAR. COUNT FRE 


SUB 


B 


;FOR WRAP WORD 


JP 1 


cissc 


;N0 INSERT LINE 


JKP 


CI4D0 


;YES WRAP WORD 


EQU 


$ 




LDA 


MFLS2 


;AUTO 


ANI 


ATOLF 


; LINEFEED 


JZ 


CI355 




CALL 


LNINS 


; INSERT 


CALL 


Y1270 


;UPDATE POINTER HOVE 


EQU 


$ 




CALL 


LNINS 


;INSERT LINE 


CALL 


Y127D 


;UPDATE POINTER WOVE 



INSERT TO NEXT LINE 



CI400 



CI410 



LXI 


K,6DEND 




nov 


A^K 




CPI 


BDBFL-1 


;OVERF. CHAR 


JZ 


CI410 




DCR 


M 


;T0 


MOV 


L^A 




LDA 


LTKGN 


;NEXT 


STA 


CRCOL 




MOV 


A^M 




CALL 


CRINS 


•LINE 


ORA 


A 




JNZ 


CI400 




EQU 


$ 




LHLD 


BYZQ7 


• 


CALL 


Y430D 


;DEL. CHAR. 
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6D1B 


CA496D 




iZ 


CI430 




6D1E 


B7 




ORA 


A 


;ASCII 


6D1F 


F23B6D 




JP 


CI425 


;¥ES 


6D22 


47 




moM 


B^A 




6D23 


C5 




PUSH 


B 




6B24 


2A59FE 




LHLD 


BYZ07 




6D27 


CDEA63 




CALL 


Y430D 


;DEL. CHAR- 


61) 2A 


CA306f> 




JZ 


CI415 




6D2D 


CD7F6A 




CALL 


CRINS 




6D30 




CI415 


EQU 


$ 




6D30 


C1 




POP 


B 




6D31 


78 




MOV 


A^B 




6D32 




CI420 


EQU 


$ 




6D32 


CB7F6A 




CALL 


CRINS 




6D35 


C&E400 




CALL 


CRADV 


;ADVANCE CURSOR 


6D38 


C3156D 




JHP 


CI410 


;GET NEXT CHAR. 


6D3B 




CI425 


EQU 


$ 




6D3B 


FE20 




CPI 


ABLNK 


;BLANK? 


6D3r) 


CA156D 




JZ 


CI4tO 


;LOOP 


6D40 


CD7F6A 




CALL 


CRINS 


;N0 


6D43 


CDE400 




CALL 


CRADV 


• 


6D46 


C3156D 




JMP 


CI410 


;GET NEXT CHAR. 



ALL CHAR. INSERTED EXIT 



6D49 




CI43Q 


EQU 


f 




6D49 


D1 




POP 


D 


;6ET ROW # 


6D4A 


CI 




POP 


B 


;6ET COLUMN » 


6D4B 


3A67FE 




LDA 


BYFL1 


;BLOCK 


6D4E 


E601 




ANI 


BYKOV 


;MOVE 


6D50 


C27A6D 




JNZ 


CI435 


;VES 


6D53 


3A66FE 




LDA 


BYFL2 


;IND 


6D56 


E6 08 




ANI 


BYCID 


;SET? 


6D58 


CA7A6D 




JZ 


CI 435 


;N0 


6D5B 


3EF7 


* 


MVI 


A,-1-BYCID ;CLEAR FLAG 


6D5D 


CD676A 




CALL 


CBFL2 




6D60 


3A5BFE 




LDA 


BYZ06 


;CHAR. COUNTER 


6D63 


FE04 




CPI 


100B 


;64 CHAR. ? 


6065 


CA7A6D 




JZ 


CI435 


;YES 


6D68 


3A5BFE 




LDA 


BYZ06 


;CALC. 


6D6B 


2158FE 




LXI 


H,BYZ08 


; COLUMN # 


6D6E 


96 




SUB 


M 


;FOR 


6D6F 


D601 




SUI 


IB 


;NEXT INSERT POSITION 


6D71 


FA7A6D 




JM 


CI435 


; ERROR 


6D74 


32 C IFF 




STA 


CRCOL 


;N0 SAVE NEU COL. ADR 


6D77 


C39A6D 




JMP 


CI470 


;AND EXIT 


6D7A 




CI435 


EQU 


$ 




6D7A 


3E17 




MVI 


A^MXROW 




6D7C 


BA 




CMP 


D 




6D7D 


CA8960 




JZ 


CI436 




6D80 


3E16 




MVI 


A^MXROW-1 




6082 


BA 




CMP 


D 




6D83 


CA8A6D 




JZ 


CI437 




6D86 


C3936D 




JMP 


Ci460 




6D89 




CI436 


EQU 


$ 
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6D89 


15 




DCR 


D 




608A 




CI437 


EQU 


$ 




6D8A 


3AF3FF 




LDA 


MFL62 




6D8D 


E60A 




ANI 


ATOLF 




6D8F 


CA936D 




JZ 


CI460 


;N0 


6D92 


15 




DCR 


D 


;YES AUTO LINEFEED 


6D93 




CI460 


EQU 


$ 




6D93 


21C0FF 




LXI 


H^CRROW 




6D96 


72 




«0V 


n,[> 


;RESTORE ROW « 


6D97 


23 




INX 


H 




6D98 


00 




NOP 




;RESTORE COLU«N « 


6D99 


70 




MOV 


W^B 




6D9A 




CI470 


EQU 


$ 




6D9A 


3C 




INR 


A 


;A # 


6D9B 


C9 




RET 







6D9C 




CI500 


EQU 


$ 


6D9C 


23 




INX 


H 


6D9D 


7D 




MOV 


AA 


6D9E 


E60F 




ANI 


BLKSM 


6DA0 


C2A76D 




JNZ 


CI510 


6DA3 


2A96FF 




LHLD 


LKSAV 


60 A6 


23 




INX 


H 


6DA7 




CI510 


EQU 


$ 


6DA7 


7E 




HOV 


A^M 


6DA8 


B7 




ORA 


A 


6DA9 


C9 




RET 





********************************** 

CR1500 - GET PREVIOUS CHARACTER * 
********************************** 

ENTRY: H,L = CURRENT CHARACTER ADDRESS 

LNKSAV = ADDRESS OF MSB PART OF NEXT 
BLOCK LINK IN PREVIOUS BLOCK 

EXIT : A = PREVIOUS CHARACTER 

H,L = ADDRESS OF PREVIOUS CHARACTER 

P - CHARACTER IS ASCII 

M - CHARACTER IS NON-DISPLAY CONTROL 



;MOVE TO PREVIOUS CHARACTER 

;IN BLOCK 
;PREVIOUS CHARACTER IN BLOCK 
;YES - GET IT 

;N0 - GET PREV BLOCK ADDRESS 
;SET TO LAST CHARACTER ADDR 

;SET THE PREVIOUS CHARACTER 
;SET FLAGS FOR ASCII OR NOT 
; A SCI I AND RETURN 



END 



NO PROGRAM ERRORS 
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8080 MACRO ASSEMBLER^ VER 2.4 



ERRORS = PAGE 100 



SYMBOL TABLE 



* 01 

A 

ADOLL 

ALTIO 

APHNM 

ATOLF 

B 

B1TYP 

B2STT 

BASEK 

BDEND 

BFBGN 

8KFIL 

BKTR6 

BLLIM 

BSEH2 

BY001 

BY 005 

3Y025 

8Y037 

BY046 

BY080 

BY100 

BY1 13 

BY120 

BY125 

BY129 

BY215 

BY2 28 

BY271 

BY315 

BY326 

BY440 

SY550 

BY640 

BY690 

BY730 

BY900 

BY930 

BY999 

BYCI2 

BYFC2 

BYFRE 

BYINS 

BYMF2 

BYHOV 

BYSRE 

BYT 04 

BYT 08 

BYT12 

BYZ03 

BY 207 

CARIN 

CBFL2 

CBRKY 

CDEXC 

CEKCC 



0007 

0024 

0010 

00C7 

0004 

0000 

FF39 

FF37 

OOFF 

FF3B 

FF8D 

FF91 

0001 

0051 

OOFE 

5 0AB 

55B3 

560E 

566B 

5703 

5855 

5 95 A 

5B47 

5BA8 

5E05 

5FD1 

605C 

6116 

620F 

62CA 

6302 

63FA 

6671 

6755 

67BD 

6847 

696 

69D3 

5134 

FE63 

0002 

581D 

0002 

0020 

0001 

58E2 

5217 

523B 

5287 

FE5F 

FE59 

FF9C 

6A67 

OOOA 

0008 

004 



ABLNK 

ALCC 

ANL 

APSNB 

ATOUT 

B15 

B2{>EC 

B2TYP 

BD200 

BDPTR 

BFBSY 

8KHDE 

BKTRM 

BNXMT 

BSPCe 

BY 002 

BYOOC 

BYQ30 

BY 038 

BY 05 

BY 081 

BY110 

BY114 

BY122 

BY126 

BY130 

BY225 

BY229 

BY272 

BY323 

BY410 

BY500 

BY570 

BY660 

BY 700 

BY74 

BY905 

BY 940 

BYBEF 

BYCID 

BYFL1 

BYGET 

BYINT 

BYMF3 

BYPZ1 

BYT01 

BYT05 

BYT09 

BYTXO 

BYZ04 

BYZ08 

CBASE 

CBLNK 

CDOOO 

CEARL 

CER02 



0020 

0063 

0080 

0026 

702 A 

8000 

00A8 

FF36 

2855 

FF3C 

0080 

0002 

7804 

0002 

CFFF 

511E 

FE57 

5620 

5672 

574F 

58B0 

5A06 

5B62 

5D7F 

5E76 

5FE1 

6100 

611C 

621C 

62E3 

630B 

6513 

66EB 

676C 

67B7 

6855 

6987 

6A01 

0004 

0008 

FE67 

6427 

6462 

0040 

FE56 

51DF 

5221 

525 D 

5148 

FE5D 

FE58 

OOFF 

FF53 

00D5 

006 D 

011l> 



ACKSL 

ALPHA 

ANR 

ASIGM 

ATTRK 

B1LEN 

B2DE0 

BASE 

BDBFL 

BEFIN 

BFENO 

BKSPW 

BLKSW 

BOT 

BX 

BY003 

BY 010 

BY035 

BY040 

BY051 

BY082 

BY111 

BY115 

BY123 

BY127 

BY202 

BY226 

BY230 

BY273 

BY324 

BY420 

BY501 

BY600 

BY670 

BY710 

BY750 

BY910 

BY945 

BYCHK 

BYCIF 

BYFL2 

BYIN1 

BYMES 

BYKF4 

BYRAK 

BYT02 

BYT06 

BYT10 

BYZ01 

BYZ05 

C 

CBDLY 

CBLTM 

CD100 

CEARS 

CERLO 



00 5C 

00C5 

0040 

0040 

0001 

FF38 

OOAB 

FFOO 

003D 

003C 

FF8B 

2879 

OOOF 

0020 

0042 

5549 

55C5 

5630 

56B8 

57E7 

58C7 

5AEA 

5B7F 

5D90 

5F36 

600E 

6138 

611F 

6269 

62EC 

637C 

6588 

6711 

6789 

67F7 

6872 

69AD 

6A1D 

283A 

0004 

FE66 

FE55 

58D1 

0080 

FE67 

51F1 

5231 

526F 

FE62 

FE5C 

0001 

0020 

FF52 

OODB 

0070 

0126 



ADEL 


007F * 


ALTIN 


0040 * 


APARK 


0029 * 


ASTAK 


FF5F 


AX 


0041 


B1STT 


FF3A 


B2LEN 


FF35 


6ASE2 


FEOO * 


BDBUF 


FF30 


8EF0F 


003 E 


BF»SG 


OOAO 


BKSPX 


287C 


BLKSZ 


0010 * 


BRY60 


2829 


BYOOO 


501B 


BY 004 


55AD 


BY020 


55CE 


BY036 


5664 * 


BV045 


56C8 


BY 070 


5831 


BY095 


58F7 


BY112 


5B2A 


BY116 


5B9C 


BY124 


5DAB 


BY128 


5F5D 


BY203 


6043 


BY227 


6110 


BY270 


615C 


BY312 


62C0 


BY325 


62F9 


BY430 


63E7 


BY510 


65AA * 


BY610 


6748 


BY680 


67A4 


BY720 


6815 


BY760 


6894 


BY920 


69CA 


BY950 


6A2F 


BYCI1 


FE64 


BYFCl 


0001 * 


BYFL3 


FE65 


BYIN2 


FE54 


BYHF1 


0008 


BYB01 


FE53 


BYRTD 


64EC 


BYT 03 


51FB 


BYT 07 


5237 


BYT11 


527D 


BYZ02 


FE60 


BYZ06 


FE5B 


CAFLG 


FF67 


CBFL1 


6A5B 


CBLXF 


0055 


CDCDP 


282c 


CEDIT 


0111 


CFLGS 


FFF8 
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20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 



CI154 

CI170 

CI260 

CI315 

CI333 

CI338 

CI350 

CI415 

CI435 

CI470 

CIBPT 

CIL 

CIR 

CIVEC 

CKRTN 

CLPRT 

CMND 

COMMA 

C R 

CR070 

CRCOL 

CRPHD 

CRSET 

CSTAT 

CTOFF 

CURPD 

CURPU 

OOCTI 

t>C3 

D FL SS 

DJMP1 

D JMS2 

DLWRP 

DPBTM 

OPLUS 

DSCNT 

DSPLC 

DTCOM 

DXB2D 

ECINP 

EDIT 

EHALF 

ENOPR 

EOLMV 

ERFLG 

EVD 

EXERR 

F3KEY 

F7KEY 

FCRST 

FECNT 

FLCHR 

FLREO 

FOUR 

FSOUT 

FTCTL 

FWD 

6ETI0 

STADR 

H 

HDERR 

HOL 

IBUF2 

ICDEV 

ICKEY 

ICRCL 

ICTDI 

I DATA 

IFLG2 

I IT DO 



6B4D 

6866 

6BA1 

6BE5 

6C32 

6C83 

6CE8 

6D30 

6D7A 

6D9A 

FF2F 

0001 

0002 

FFE1 

FF86 

287 3 

FF55 

002 C 

000 D 

6AD0 

FFC1 

0064 

FF72 

FF66 

0080 

OOED 

OOFO 

2835 

0013 

FF6E 

0001 

7806 

00D8 

0040 

0049 

0006 

OOFF 

0020 

OOEA 

0008 

0010 

008A 

00C1 

FF90 

FFF7 

0002 

5145 

00F2 

OOF 6 

0004 

0067 

FF8F 

0004 

0034 

0010 

FF8A 

0002 

285 E 

FF73 

0004 

0004 

0010 

FDOO 

FFDB 

2802 

8007 

802B 

FFDE 

FF64 

0085 



CI158 

CI180 

CI300 

CI320 

CI334 

CI340 

CI355 

CI420 

CI436 

CI500 

CICNT 

CINTO 

CISPT 

CKALF 

CKSH2 

CLRED 

CM0N1 

COUNT 

CR050 

CR110 

CRDLI 

CRPRT 

CRTRG 

CSTOR 

CTRLO 

CURPH 

CX 

D2SND 

DCHAR 

DFSKY 

DJMP2 

DJMSK 

DMERR 

DP END 

DPMSG 

DSPCl 

DSPLY 

DTEST 

E 

EDBLK 

EDRED 

EHLIH 

EOF 

EONTF 

ESC 

EVDC 

EXNOF 

F4KEY 

F8KEY 

FDLSO 

FF 

FLDUP 

FNHDI 

FPS 

FST 

FTK2D 

FX 

GIOBO 

GTDCM 

HBLEN 

HDSHK 

HX 

IBUFH 

ICDPT 

ICMND 

ICRRW 

ICTDO 

IDISP 

IFL6S 

IJMP 



6B57 

6B67 

6BA7 

6BF5 

6C3B 

6C99 

6CF6 

6D32 

6D89 

6D9C 

FF2C 

0082 

FF31 

6A79 

6A73 

2808 

286A 

FF84 

6A90 

6AF7 

0123 

OOCC 

0000 

FFOO 

FF62 

0061 

004 3 

0080 

FF89 

0008 

0002 

7805 

0001 

FFA8 

004 

010E 

0004 

00 A 2 

0003 

0007 

287F 

OOBF 

0001 

FFCD 

001B 

284 F 

5131 

OOF 3 

00F7 

00F3 

OOOC 

0080 

OOOE 

0004 

0004 

0010 

0046 

2849 

009 4 

OOOA 

0040 

004 8 

OOFC 

FF4C 

FFD7 

8 027 

802B 

8007 

FF65 

00C3 



CI159 

C1220 

CI305 

CI325 

CI335 

CI343 

C1400 

CI425 

CI437 

CI510 

CICSM 

CINTR 

CISTA 

CKFMS 

CKSLR 

CLTST 

CNDIS 

CPLIM 

CR066 

CRADR 

CRFKY 

CRRET 

CRTRK 

CTFAD 

CTUIN 

CURPL 

CXXXX 

DAOFF 

DCNU« 

DIOFF 

DJMP3 

DLHOL 

DMNUS 

DPFNC 

DPSTR 

DSPL1 

DSPST 

DVFL6 

ECEND 

EDCOL 

EDROW 

EHOUT 

EOFC 

EOP 

ETB2D 

EW 

FIKEY 

F5KEY 

FBLKS 

FDSEP 

FILL 

FLINE 

FNMD2 

FRMAT 

FSTBL 

FTRAR 

GAP 

GHODE 

GTOSP 

HBTBL 

HLCNT 

IBASE 

IBUFL 

ICERR 

ICNTL 

ICS6N 

ICTSI 

IDN60 

IHOFF 

IKBCO 



6B62 

6B7B 

6BAF 

68FC 

6C40 

6CC9 

6CFC 

6D3B 

6D8A 

6DA7 

FF2A 

283D 

FF29 

011A 

6A6D 

FF75 

0001 

FF46 

6AC4 

FFC3 

FFA4 

00C9 

0002 

FFCE 

0080 

OOCO 

OOBA 

0060 

0046 

0010 

0004 

0010 

004C 

0001 

FE4F 

0120 

FFFE 

FE7F 

004 F 

FF21 

FF20 

FF76 

2846 

OOCE 

0001 

0080 

OOFO 

00F4 

FFAC 

00C4 

00C3 

FF9F 

OOOF 

0008 

FF92 

9100 

0020 

O0B1 

0088 

FF78 

FF51 

0080 

0000 

FF4F 

281A 

FFDD 

8008 

2820 

OOBD 

8083 



CI160 

CI240 

CI310 

CI330 

CI337 

CI345 

CI410 

CI430 

CI460 

CXADR 

CIJMP 

CIOKY 

CITRL 

CKLIM 

CLLIM 

CMMON 

CNDTN 

CPSLK 

CR067 

CRADV 

CRINS 

CRROW 

CSPEN 

CTHON 

CTXFR 

COR PR 

D 

DC2 

DCRDX 

DJMPO 

DJnP4 

DLTRM 

DPBGN 

DPLIM 

DPTYP 

DSPLA 

DTATR 

DX 

ECFLG 

EDDSP 

EDTST 

ELADR 

EOL 

EPAND 

ETWRP 

EXBYH 

F2KEY 

F6KEY 

FCPTY 

FDTB2 

FIVE 

FLNUM 

F0R6N 

FSALT 

FTBIN 

FTSND 

GEN 

60 

6TPTR 

HDER1 

HNGUO 

IBUFI 

ICCNT 

ICINP 

ICOUT 

ICTCO 

ICTYP 

lERRB 

IITOG 

INTRM 



6B65 

6B8C 

6BD3 

6C0A 

6C49 

6CCF 

6D15 

6D49 

6D93 

FF33 

FFEO 

0008 

FF2B 

0052 

0020 

FFFF 

2814 

0001 

6ACC 

00E4 

6A7F 

FFCO 

FF77 

282F 

0002 

00C3 

0002 

0012 

OOOA 

0080 

0008 

0000 

FFAA 

FAFF 

FFAE 

0102 

0040 

0044 

FFD1 

0080 

0006 

FF94 

OOCC 

008E 

0008 

513C 

00F1 

OOFS 

0080 

0073 

0035 

FF5E 

0080 

7029 

OOOA 

0020 

0020 

0129 

2843 

0010 

009D 

FCOO 

FFD5 

FFD9 

FFDA 

800B 

FFD8 

002 

0114 

0001 
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FILE 

FILE 
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FILE 
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FILE 

FILE 
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20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 



> « > r- •^ ir^ 



IPT Rd 

IRPON 

ISTA2 

ITFLG 

KCTSH 

KJMP2 

KX 

LCKKB 

tF2KY 

LHFKY 

LLINE 

LP 

LTBRC 

LTFHT 

LTRED 

LX 

MFL6S 

M6PT4 

«6PT8 

MKROW 

«MLOK 

MYEOL 

NDCST 

NRRAL 

NSEND 

NTEST 

NWCOL 

OTDEV 

PARM2 

PARW6 

PLUS 

POLL 

PRBD2 

PRCL1 

PRSPT 

PTBRK 

PTPLN 

QUOTE 

RADR1 

RCKEY 

RCSEP 

REC 

R6CTU 

RLLDN 

RLUP2 

RRD60 

RTJMP 

RTTMR 

RWOWT 

SAL LA 

SALLI 

SALLX 

SCHAR 

SCTKY 

SDFCT 

SHST1 

SKY AT 

SLKEY 

SLXFO 

SO 

SPCTU 

SPSTR 

SRNRW 

SRTST 

STCNT 

STERR 

STLCL 

STREW 

SVDUN 

SX 



8UU> 

OOe? 

FF4A 
FFF6 
FF12 
FFFA 
004 B 
0001 
0002 
0008 
FFA1 

004 
0076 
FFC5 
FF25 
004C 
FF70 
FFEB 
FFE3 
FF6B 
0004 
0040 
0010 
0080 
0004 
0004 
FFDB 
FF4D 
FFOA 
FFD5 
0028 
0040 

001 F 
800F 
FE7B 
0005 
2832 

002 7 
0117 
2808 
7803 
0008 
0002 
OOFC 
00D2 
2826 
0001 
FF&O 
0001 
0061 
0069 
0078 
OOOB 
2000 

00 OC 

01 OB 
00C8 
280E 
0058 
OOOE 
FF24 
FFAF 
FFD9 
0005 
FF50 
0008 
0004 
0003 
8000 

005 3 



IRD6U 

ISCHR 

ISTA3 

ITVEC 

KDCSW 

KJMP3 

L 

LDATA 

LFEED 

LHKSM 

LNDEL 

LPK 

LTCOL 

LTFWD 

LTROW 

M6PT1 

M6PT5 

MINUS 

KKSCO 

MX 

MYEOP 

NFCTK 

NROLL 

NSIGN 

NTRED 

NWROW 

OTHER 

PARM3 

PCCTL 

PNTAL 

POMPT 

PRBLN 

PRDA2 

PRST1 

PTLIN 

PUTIO 

RABRT 

RADR4 

RCORD 

ROBOT 

RESET 

RHFKY 

RLLUP 

RMOTE 

RSTON 

RTKEY 

RUN 

RX 

SALLB 

SALLK 

SBFL1 

SCHST 

SDATN 

SDVST 

SI 

SLANT 

SLLCT 

SNCNT 

SOWOF 

SPFLG 

SPTRM 

SRSEN 

SSTAT 

STDLY 

STFRN 

STMON 

STRMI 

SVINP 

TAK 



diid5 
0002 
FF4B 
9165 
FFFC 
FFF9 
0005 
FFDE 
008B 
FFD7 
00E7 
0001 
FFC8 
0002 
FFC7 
0006 
FFF1 
FFE9 
002 D 
0097 
004 D 
0020 
0008 
FF83 
0080 
FF27 
FFDA 
FF56 
FFD9 
FFF5 
0010 
OOOD 
0100 
8065 
800 D 
OODE 
284C 
2837 
00F6 
0040 
2864 
0000 
0010 
OOCF 
0008 
0002 
0003 
0001 
0052 
0062 
006 B 
6A55 
OOOD 
OOOB 
0800 
000 F 
002 F 
286D 
FF54 
OOFF 
00C4 
0008 
1000 
0200 
0032 
OOOC 
0008 
0079 
FF23 
0008 



* 

* 

* 
* 
* 

* 

* 
* 



IRET 

ISTAO 

IST60 

JX 

K&LOK 

KJMPR 

LADDR 

LF 

LFFKY 

LKLIM 

LNINS 

LRCHK 

LTCTU 

LTLIN 

LWBUF 

HFL61 

M6PT2 

MGPT6 

MKFL6 

ML6S2 

MXCOL 

NBLKS 

NMBER 

NROhiS 

NTCHO 

NULL 

NX 

OTRDX 

PARM4 

P6STR 

POCSR 

PRABT 

PRBPT 

PRFLG 

PRST2 

PT0T1 

PX 

RADDR 

RADRA 

RCPGE 

RDKEY 

RETDC 

RIP 

RLSNS 

RMSET 

RTCTU 

RTM6N 

RVEVD 

RXMIT 

SALLD 

SALLP 

SBFL2 

SCPFL 

SBC2 

SETCH 

SINRY 

SLDIS 

SLRCT 

SNTER 

SOWON 

SPOWL 

SPXFR 

S RTAK 

STACK 

STEND 

STJKP 

STNRM 

STROM 

SVOUT 

TCHAR 



Ducy 

FF48 
281D 
004A 
0040 
FFFB 
FFD5 
OOOA 
0001 
OODO 
00E1 
0004 
0001 
FFC9 
OOBO 
FFF4 
FFEF 
FFE7 
FF6A 
FF6F 
004 F 
FF99 
00C6 
FF9A 
0OF9 
0000 
004E 
0008 
FFD8 
0008 
0070 
FE78 
FE79 
FE77 
8025 
802D 
0050 
00B4 
OOAE 
0020 
2805 
0002 
0004 
0004 
0010 
2817 
FFBE 
2861 
0001 
0064 
0070 
6A61 
2858 
0100 
0020 
0002 
0002 
2870 
4 000 
0020 
FF6C 
FFFF 
4 05F 
9160 
0010 
2840 
0009 
0080 
FF22 
FF68 



* 



* 

* 

* 

* 
* 

* 

* 



IRM60 

iSTAl 

ISWRP 

KBUF2 

KFCTK 

KSRA«t 

LCHAR 

LF1KY 

LFPOS 

LKSAW 

LNWRP 

LTBKT 

LTDC& 

LTH6N 

LWDSP 

MFL62 

M6PT3 

«GPT7 

MKOFO 

RLOCK 

MX ROW 

NCHAR 

NMSWP 

NRWST 

NTCHR 

NUM2K 

OSTOR 

PARMi 

PARR5 

PINTR 

POFLD 

PRBBG 

PRCF2 

PRIOO 

PSU 

PT0T2 
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